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Chapter One 


Getting to know your 
Amstrad CPC 664 



Computing is a skill and like all other skills can only be learned 
by practice. Don't just read this book but try it out on your 
Amstrad CPC 664. Although the text tells you how the 
computer responds, you will learn much faster by using your 
Amstrad as you read the book. Inevitably you will make 
mistakes but don't be disheartened and always try to under¬ 
stand what you did wrong. 

As your Amstrad CPC 664 has no brain it cannot decide 
what to do next, it can only obey your instructions. Since it is 
unable to understand English you must learn its language 
which is called BASIC. This language is just a set of 
instructions that the computer knows how to carry out. In this 
book you will learn to make your Amstrad CPC 664 do such 
things as calculations, draw coloured patterns on the screen 
and play simple tunes. 

Remember that the computer always obeys your instruc¬ 
tions and so if things are not working as planned then you 
must have made a mistake. 

Getting started 

When you unpack your Amstrad CPC 664, you will find that it 
consists of a computer, a disk and a monitor which resembles a 
television. Part 1 of your User Instructions Manual gives 
instructions on fitting a plug to the mains lead of the monitor, 
on connecting the computer to the monitor and on switching 
on the system. 

When you switch on, the computer sends you a message by 
displaying on the screen: 


1 



2 Introducing the Amstrad CPC 664 

Aistrad &4k Hicrocotputer (v2) 


81984 Aistrad Consuaer Electronics pic 
and Locoiotive Software Ltd. 

BASIC 1.1 
Ready 

I 


In the first three lines the computer is introducing itself and 
telling you that it converses in the language called BASIC. 
When the computer displays; 

Ready 

it is telling you that it is waiting for an instruction. If you do 
not send it one it will remain in this state until you switch off. 
Since the computer cannot understand the spoken word you 
must type your instructions at the keyboard. 


Introducing the keyboard 

Beneath the Ready on the screen is a square symbol. This is 
called the cursor and marks the position where the computer 
will display the next character on the screen. When you enter a 
character at the keyboard the computer automatically displays 
it on the screen as a check on your typing. 

Press the K key. The cursor will move to the right and a k 
will take its place. 

Press and hold down the K key. You will find that the 
computer displays k's across the screen. When one line of the 
screen is complete the display automatically continues onto 
the next. Release the key after the computer has displayed two 
lines of k's on the screen. All the letter keys have this repeat 
action when held down. 

Count the number of k's in each line. You will find that the 
screen displays 40 characters to the line. 

The blue key labelled DEL is called the delete key. Press this 
key once and the k to the left of the cursor will be deleted. The 
cursor will move one character to the left. Press and hold down 
the DEL key until all the k's are deleted. When there are no k's 
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left to delete the computer bleeps as a warning that you are 
trying to delete when there is nothing to be deleted. 

To type an upper case (i.e. capital) K press and hold down 
either of the blue shift keys that are labelled SHIFT. Press the 
K key once and then release the SHIFT key. We shall write this 
as SHIFT K 

Use the DEL key to delete the K. 

Tutorial 

1.1) Type 

This is the Aistrad coiputer 

and then delete it using the DEL key. 


The number keys 

Your Amstrad CPC 664 keyboard has two sets of numbers, one 
in the usual typewriter position and the other forming a 
number pad to the right of the main keyboard. Either set may 
be used. The keys on the number pad are labelled f1 fZ etc. 
The significance of the f 's will be discussed later. 

Press one of the keys labelled 4 and a 4 will be displayed on 
the screen. The number keys in the typewriter position have a 
repeat action similar to the letter keys. However, the number 
pad keys do not have this action. 

Be careful to distinguish the number zero from the letter O. 
On the keyboard the number zero is the key labelled 0 
whereas the letter O is the key labelled O between the I and P 
keys. 

Use the DEL key to delete from the screen any numbers you 
have typed. 

Tutorial 

1.2) Type: 

The Aistrad CTIIli44 colour lonitor 

and then delete it using the DEL key. 
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Symbols 


The symbol keys are shown in Table 1.1. The numbers must be 
typed on the main keyboard. 


Symbol 

Key 

Comma 

the key to the right of the M key 

Full stop 

the key to the right of the comma 

Colon 

the key to the right of the L key 

Semi-colon 

the key to the right of the colon 

Exclamation mark 

SHIFT 1 

Quotation mark 

SHIFT 2 

Dollar sign 

SHIFT 4 

Apostrophe 

SHIFT? 

Underscore 

SHIFT 0 

Pound sign 

SHIFT t where t is the key to the left of the key 
labelled CLR 

Question mark 

SHIFT / where the / is the key to the right of the full stop 


Table 1.1 


Type these symbols and they will be displayed on the screen 
as expected. Use the DEL key to delete them. 


Tutorial 

1.3) Type: 

'Stop! Nho goes there? It is after nine o'clock.' 
and then delete it using the DEL key. 


Symbol 

Function 

Key 

-1- 

addition 

SHIFT; 

- 

subtract 

the key to the right of 0 

★ 

multiplication 

SHIFT: 

/ 

division 

the key to the right of the full stop 

= 

equals 

SHIFT- 

< 

less than 

SHIFT, 

> 

greater than 

SHIFT. 

( 

open bracket 

SHIFTS 

) 

close bracket 

SHIFTS 


Table 1.2 
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The arithmetic symbols 

The arithmetic symbols are shown in Table 1.2. Be careful not 
to confuse the brackets ( and ) with the less than < and greater 
than > symbols. As before the numbers must be typed on the 
main keyboard. 

Type these symbols and they will be displayed on the screen 
as expected. Use the DEL key to delete them. 


Tutorial 

1.4) Type: 

(i+5)-2 < (24/61*4 

and then delete it using the DEL key. 

1.5) Type: 

CHR$(224) 

and then delete it using the DEL key. 


The CAPS LOCK key 

Press once the blue key labelled CAPS LOCK which is to the 
left of the A key. The computer will not display anything on 
the screen. Using the main keyboard, press the three keys 
labelled A ; and 2. The computer displays on the screen: 

A i 2 

When you pressed the CAPS LOCK key you instructed the 
keyboard to send upper case letters to the computer and hence 
a capital A was displayed above. However the CAPS LOCK 
key does not affect the numbers or symbols and hence a 
semi-colon and a 2 were displayed rather than their upper 
case symbols. 

It is unlikely that you will require this use of the keyboard, 
but you may press the key accidentally. To return to the normal 
keyboard press the CAPS LOCK key again. Now when you 
press the H key the screen will display h. 
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Use the DEL key to remove any characters that you have 
typed from the screen. 

The other keys will be introduced as required. 


Giving the computer instructions 

The computer will now be instructed to clear the screen. You 
cannot type 'clear the screen' as the computer does not 
understand English. The statement C LS tells the computer to 
CLear the Screen. Type: 

CIS 

The computer has now memorised the instruction but has 
not carried it out. It will not be obeyed until you press one of 
the two blue keys labelled ENTER. Press one of them. The 
computer now carries out the instruction by clearing the 
screen. It then displays: 

Ready 

I 

This shows that it has completed the last instruction and is 
ready to accept another one. When the computer carries out an 
instruction it is said to execute it. Once it has executed the 
instruction it forgets it. Press an ENTER key. As the computer 
does not have an instruction in its memory it does nothing 
except display: 

Ready 


If you press a wrong key while entering an instruction it can 
be corrected provided you have not pressed the ENTER key. 
Perhaps you typed CLAS instead of CLS. Type: 

CLAS 

Press the DEL key twice and the screen will display: 

CLI 


Now type a capital S and the screen will display: 

CLSI 
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As the instruction has now been corrected, press an ENTER 
key. The computer executes your instruction by clearing the 
screen. 


Syntax errors 

A syntax error occurs when the computer does not understand 
your instruction. Type: 

CLSS 

Assume that you did not notice that you had typed CLSS for 
CLS. Press an ENTER key. As CLSS is not one of the 
statements that the computer recognises it is not able to 
execute it. The computer tells you that it cannot recognise the 
statement by displaying: 


followed by the usual Ready message. 

You will notice that the computer is very particular. If you 
have made any mistakes in your instructions then it will not 
recognise them and will display a syntax error. If you create a 
syntax error and you cannot find the fault then refer to 
Appendix 1 where possible causes of the errors are suggested. 



Chapter Two 


The computer speaks 
to you 



Displaying sentences on the screen 

In this chapter you will use the PRINT statement to instruct 
the computer to display a sentence on the screen. Type: 

PRINT 'This is the Aistrad coiputer.' 

The computer displays on the screen exactly what you have 
typed so that you can check that you have not made any 
mistakes. It has also memorised what you typed but has made 
no attempt to obey the instruction. 

Press an ENTER key. This tells the computer that you have 
finished typing the instruction and that it should now execute 
it. The computer displays on the screen: 

This is the Aestrad coeputer. 

You will see that the computer has displayed everything inside 
the quotation marks but has not shown the quotation marks 
themselves. 

To summarise: a PRINT statement followed by a sentence 
within quotation marks instructs the computer to display the 
sentence on the screen. 

The above instruction: 

PRINT 'This is the Aestrad coeputer.' 

has a space between the T of P RI N T and the quotation marks. 
This space is optional but it is recommended and will be 
included throughout this book as it makes the text easier to 
read. 


8 
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Example 2a 

Use a PRINT statement to display on the screen: 

Hy naM is John. 

Type: 

PRINT 'Ny naae is John.' 

Press an ENTER key. The computer now displays on the 
screen: 

Hy nate is John. 

Example 2b 

Use a PRINT statement to display on the screen: 

There isn't a train to London tonight. 

Type: 

PRINT 'There isn't a train to London tonight.' 

Press an ENTER key. The computer now displays on the 
screen: 

There isn't a train to London tonight. 

Tutorial 

Remember to press an ENTER key after typing the PRINT 
statement. 

2.1) Use a PRINT statement to display on the screen: 

I at 25 years old. 

2.2) Use a PRINT statement to display on the screen: 

I live in Great Britain. 

2.3) Use a PRINT statement to display on the screen: 

Mould you like a cup of tea? 

In the PRINT statement, quotation marks are used to 
enclose the sentence to be displayed on the screen. Because 
they have this special meaning to the computer, the sentence 
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being displayed must not contain quotation marks. The 
computer is unable to display: 

"I don't know," he said. 

Solutions to the tutorials 

2.1) PRINT M at 25 years old." 

2.2) PRINT "I live in Great Britain." 

2.3) PRINT "Nould you like a cup of tea?" 



Chapter Three 


Concept of a program 

% N-X^T \ 

^ \ 

% \ 

m \ 

^ %v4a^ \ 

In Chapters 1 and 2 the CLS and PRINT statements were 
introduced. You shall now use these two statements to instruct 
the computer to clear the screen and then display: 

Hy naie is John. 

Type: 

CLS 

Press an ENTER key. The computer now clears the screen and 
displays at the top left hand corner: 

Ready 

I 

Type: 

PRINT 'Hy naee is John." 

Press an ENTER key. The computer now displays on the 
screen: 

Ny naae is John. 

Ready 

I 

Notice that you had to type each instruction as it was 
required. It would be more convenient if you could ask the 
computer to remember both the instructions: 

CLS 

PRINT "Ny naee is John." 

and then execute them on request. The above two instructions 
treated together in this way are called a program. A program is 
therefore a sequence of instructions that the computer can 
remember and execute on request. 


11 
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The computer must know the order in which the instruc¬ 
tions are to be executed. This is done by giving each 
instruction a number called a line number which is placed 
before the instruction as follows: 

1 CIS 

2 PRINT 'Hy n»e is John.' 

The computer executes the instructions in ascending order of 
line number starting with the lowest. The space between the 
line number and the instruction is optional but it is recom¬ 
mended as it makes the program easier to read. 

In the above program the lines were given the numbers 1 
and 2. However when writing programs it is conventional to 
number the lines 10, 20, 30 . . . etc. Using this convention the 
program would become: 

le CIS 

2B PRINT 'Ny nais is John.' 

This convention will be used in all future programs. 

The above program must be placed in the computer's 
memory before it can be executed. This is called entering the 
program. 


Entering a program 

Before entering a program, you must instruct the computer to 
forget the previous one. This is achieved by using the NEW 
statement. Type: 

NEN 

Press an ENTER key. The computer has now forgotten any 
previous programs and displays: 

Ready 

I 

To enter the program: 

10 CIS 

20 PRINT 'Ny naie is John.' 

type: 
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le CLs 

Press an ENTER key. The computer has remembered the line 
and displays the cursor showing that it is waiting for the next 
instruction or program line. Type the next line: 

2B PRINT 'Hy naie is John." 

Press an ENTER key. The program is now stored in the 
computer's memory and the cursor is displayed on the screen. 

Read your program carefully. If you have made any mistakes 
then type NEW, press an ENTER key and re-enter the program. 
The DEL key can still be used to remove a mistake while 
typing a line as explained in Chapter 1. 


Running a program 

Running a program means that you are instructing the 
computer to execute the program that is in its memory. Type: 

RUN 

Press an ENTER key. The computer now runs the program 
entered above. It first executes line 10 where it clears the screen 
and then line 20 where it displays on the screen: 

Ny naie is John. 

As the computer has now completed the program it indicates 
that it is waiting for another instruction by displaying: 

Ready 

I 

One of the advantages of a program is that it is retained in 
the computer's memory after it has been RUN. This means that 
it can be RUN again without being retyped. Type: 

RUN 

Press an ENTER key. The computer now runs the program and 
as before it clears the screen and displays: 

Hy naie is John. 

If you had a typing error at line 1 0 which you did not notice 
the computer may display an error message on the screen. If 
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this occurs then press an ENTER key, type NEW, press an 
ENTER key again and re-enter the program. Errors will be 
discussed in the next section. 

Example 3a 

Enter and RUN the following program. 

18 PRINT 'There are six biscuits on the plate.' 

20 PRINT 'Nould you like one?' 

Type: 

NEN 

Press an ENTER key. Type: 

18 PRINT 'There are six biscuits on the plate.' 

Press an ENTER key. Type: 

20 PRINT 'Nould you like one?' 

Press an ENTER key. Check that you have entered the 
program correctly. If you have made a mistake then type NEW, 
press an ENTER key and re-enter the program. 

You have now entered the program and are ready to RUN it. 
Type: 


Press an ENTER key. The computer now executes line 10 and 
displays on the screen: 

There are six biscuits on the plate. 

It then executes line 20 and displays on the screen: 

Nould you like one? 

As the computer has now completed the program it 
indicates that it is waiting for another instruction by display¬ 
ing: 

Ready 

I 
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Tutorial 

Remember to use the NEW instruction before entering a 
program and to press an ENTER key after typing each line. 

3.1) Enter and RUN the following program: 

la CLS 

20 PRINT “How far is it to Paris?' 

3.2) Enter and RUN the following program: 

10 PRINT “I have found a tie.' 

20 PRINT 'Does it belong to John?' 

3.3) Enter and RUN the following program: 

10 CLS 

20 PRINT 'Stop! You have dropped your glove.' 


Editing a program 

So far if you notice a mistake after typing a line, you have to 
type NEW, press the ENTER key and re-enter the complete 
program. For long programs this would be unsatisfactory. 
Once the program is in the computer's memory you can: 

• list the program 

• change a line 

• insert a line 

• remove a line 

• renumber the lines. 

This is called editing. To demonstrate editing the computer's 
memory must contain a program. Enter the program: 

10 PRINT 'Ny naie is John Jaies Brown.' 

20 PRINT 'I live in Britain.' 


Listing a program 

It is often useful to be able to display the program in the 
computer's memory on the screen. This is called listing the 
program. Type: 

LIST 
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Press an ENTER key. The computer now displays the program 
on the screen: 

10 PRINT 'Hy naie is John Jaies BroMn.' 

20 PRINT “I live in Britain," 

You may find it is easier to read the program if you clear the 
screen before listing it. Type: 

CIS 

Press an ENTER key. Type: 

LIST 

Press an ENTER key. The computer now displays the program 
on a clear screen. 


Changing a line 

The EDIT statement can be used to: 

• insert an extra word into a line 

• remove a word from a line 

• alter a word in a line. 

Inserting an extra word into a line 

Let's assume that line 20 should have been: 

20 PRINT "I live in Great Britain." 

The line can be modified by typing: 

EDIT 20 

The word EDIT must be followed by a space. Press an ENTER 
key. The computer now displays line 20 and places the cursor 
over the P of PRINT. 

The cursor right key marked > and positioned to the right of 
the grey COPY key will now be used to move the cursor to the 
right. Use this key to move the cursor over the BofBri tain. 
If you accidentally move the cursor too far then the cursor left 
key marked < can be used to move the cursor back. Type the 
word that was missed out (i.e. Great) followed by a space. 
Press an ENTER key. This instructs the computer that your 
alterations are complete. 
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Now LIST the program. The computer will display: 

IB PRINT 'Hy nut it John Jaift Brntn.' 

2B PRINT "I live in Great Britain." 

Notice that line 20 has been altered. 

Deleting a word from a line 

Let's remove James from line 10. Type; 

EDIT 10 

Press an ENTER key. The computer now displays line 10 and 
places the cursor over the P of PRINT. Lise the cursor right 
key > to move the cursor over the J of J a m e s. The CLR key 
to the left of the blue DEL key can now be used to remove the 
character under the cursor. Lise this key to remove the word 
James. The cursor is now over the space before the word 
Brown. Press the CLR key to remove this space. Press an 
ENTER key. This instructs the computer that your alterations 
are complete. 

Now LIST the program. The computer will display; 

10 PRINT "Hy naae is John BroNn." 

20 PRINT "I live in Great Britain." 

Notice that line 10 has been altered. 

Altering a word in a line 

Assume that you wish to change John in line 10 to 
Ri chard. Type: 

EDIT 10 

Press an ENTER key. The computer now displays line 10 and 
places the cursor over the P of PRINT. Use the cursor right 
key > to move the cursor until it is over the J of J ohn. Use 
the CLR key to remove John. Type: Ri chard. Press an 
ENTER key This instructs the computer that your alterations 
are complete. Now LIST the program. The computer will 
display: 

10 PRINT "Hy naaa is Richard Brosn." 

20 PRINT "I livf in Great Britain." 

Notice that line 10 has been altered. 
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The above editing techniques have allowed you to modify a 
line. However if the line has several mistakes then it may be 
quicker to retype it without using the EDIT statement. Let's 
assume that line 20 should have been: 

20 PRINT ‘I ai 20 years old* 

The line can be changed by typing: 

20 PRINT "I ai 20 years old* 

Press an ENTER key. Retyping a line automatically deletes the 
original line. Now LIST the program and notice that line 20 
has been altered. Retyping a line may seem an easy way to 
edit. However it is worth practising the editing techniques as 
they will save you time once you are familiar with them. 

Inserting a line 

Let's assume that you wish to insert the following line: 

PRINT ‘Hy telephone nuiber is 09876 1234.‘ 

between lines 10 and 20 in the above program. The line could 
be given the line number 15. Type: 

IS PRINT 'Hy telephone nueber is 09876 1234.' 

Press an ENTER key. LIST the program and observe that line 
15 has been inserted. 

This also shows that when entering a program the order in 
which the lines are typed is not important as the computer 
sorts them according to their line numbers. 

Removal of a line 

You will now remove line 20. Type: 

20 

Press an ENTER key. LIST the program and observe that line 
20 has been removed. 


Renumbering the lines 

You will notice that your program now has line numbers 10 
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and 15. If you wish to renumber these to the conventional 10 
and 20 then type: 

RENUH 

Press an ENTER key. The computer has now renumbered yciur 
program. LIST the program and observe that it now has 
conventional line numbers. 

Tutorial 

3.4) Enter the program: 

le PRINT *Th» fire is very hot." 

Edit line 10 so that it becomes: 

18 PRINT "The fire is hot." 

3.5) Enter the program: 

10 PRINT "The river is deep." 

Edit line 10 so that it becomes: 

18 PRINT "The river is very deep." 

3.6) Enter the program: 

10 CIS 

28 PRINT "Hy favourite colour is red." 

Edit line 20 so that it becomes: 

20 PRINT "Hy favourite colour is green." 

3.7) Enter the program: 

18 PRINT "Nhat is the weather forecast for today?" 

20 PRINT "It is going to be sunny." 

Edit line 20 so that it becomes: 

20 PRINT "It is going to be uet." 

3.8) Enter the program: 

10 PRINT "I want to buy three white eice." 

Edit line 10 so that it becomes: 

10 PRINT "I want to buy two white rats." 
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3.9) Enter the program: 

10 CLS 

20 PRINT ‘Hon luch is the car?* 

30 PRINT 'It costs £10000!' 

Edit line 30 so that it becomes: 

30 PRINT 'It costs £5000!' 

3.10) Enter the program: 

10 CLS 

20 PRINT 'I Mould like an ice-creaa.' 

30 PRINT 'No, I shall have a drink instead.' 

Delete line 10 and renumber the program. 

3.11) Enter the program: 

10 PRINT 'Open the door.' 

20 PRINT 'Nalk through it.' 

30 PRINT 'Nalk aeay.' 

Insert a line between 20 and 30 which will display on 
the screen: 

Shut the door. 

LIST the program and then renumber it. 

Error messages 

You will remember from Chapter 1 that if you ask the 
computer to execute a statement that it does not understand 
then it may reply: 

Syntax error 

Enter the following program: 

10 CLS 

20 PRIINT 'Hy naae is John BroMn.' 

Notice the deliberate spelling mistake PRIINT at line 20. 
RUN the program. The computer clears the screen at line 10 but 
when it tries to execute line 20 it does not understand the 
command PRIINT and displays on the screen: 
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Syntax error in 2B 

2B PRIINT *Hy naie is John BroNn* 

When the computer found the error at line 20 it automatical¬ 
ly displayed the syntax error message and then executed an 
EDIT 20 instruction. This caused it to display line 20 and put 
the cursor over the P of PRINT. You can correct the error by 
using the cursor right key to move the cursor over the first I of 
PRINT. Press the CLR key to remove the I. Press an ENTER 
key to tell the computer that you have finished editing the line. 
LIST the program and notice that line 20 is now correct. 

Sometimes when the computer detects an error it displays a 
different error message. However it still indicates the line 
number where the error was detected. In these cases edit the 
line and correct the error. 

If at any point in the book you do not understand the reason 
for an error message then refer to Appendix 1 where possible 
causes are suggested. 



Chapter Four 


Writing your own 
programs 



Introduction 

In Chapter 3 you entered and ran programs. You will now 
learn to write your own programs. 

When writing a program you must first decide what you 
want the program to do. Let's consider the following example: 

Example 4a 

Write a program to clear the screen and then display on the 
screen: 

Where has the ball gone? 

I think it is over there. 

The above explanation of the program's function is called 
the program description. In this example it can be split into 
two parts. First you are asked to clear the screen. As the C LS 
statements clears the screen, a suitable line would be: 

le CLS 

Next you are asked to display on the screen: 

Where has the ball gone? 

I think it is over there. 

As the PRINT statement displays information on the screen, 
the next two lines could be: 

28 PRINT 'Where has the ball gone?' 

38 PRINT '1 think it is over there.' 

As you have now satisfied both parts of the program 

22 
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description, the complete program would be: 

ifl CLS 

2B PRINT "Nhere has the ball gone?* 

30 PRINT *1 think it is over there.' 

Enter and RUN this program. The computer should now 
display on the screen: 

Nhere has the ball gone? 

I think it is over there. 

Tutorial 

In the following tutorials if the computer does not create the 
desired screen display when you run the program, then LIST 
it and examine the listing for your mistake. 

4.1) Write, enter and RUN a program that clears the screen 
and then displays: 

Ne are going out noH. 

Have you suitched off the television? 

4.2) Write, enter and RUN a program that displays on the 
screen: 

It Mill soon be holiday tiie. 

Nhere are you going this year? 


Example 4b 

Write, enter and R U N a program that clears the screen and then 
displays: 

The earathon uas cancelled because of bad Heather. 

A possible program could be: 

10 CLS 

20 PRINT 'The earathon Has cancelled because of bad Heather.' 

Enter and RUN this program. The computer will clear the 
screen and then display: 

The earathon Has cancelled because of ba 
d Heather. 
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You will see that when the computer reached the end of the 
first line of its screen it automatically continued to the next. 
This has resulted in splitting the word bad between the two 
lines which does not give a good screen presentation. A better 
presentation can be obtained by changing the PRINT state¬ 
ment in line 20 into two separate PRINT statements. The 
program becomes: 

II CLS 

20 PRINT 'The larathon Has cancelled because of 
30 PRINT 'bad Heather.' 

Enter and RUN the program. The computer will clear the 
screen and then display: 

The aarathon Has cancelled because of 
bad Heather. 

Tutorial 

4.3) Write, enter and RUN a program that clears the screen 
and then displays: 

I nant a library book but I can't take up ly aind nhich 
book to borroH. 

4.4) Write, enter and RUN a program that clears the screen 
and then displays: 

Please shut the gate or the dog Hill escape. 


The REM (remark) statement 

So far you have only written short programs which can be 
easily understood from the listings. However longer programs 
would be difficult to follow unless accompanied by some 
explanation. The REM statement allows this and other relevant 
comments to be contained within the program. 


Example 4c 

Rewrite the solution to tutorial 4.1 but include the following 
remark at the beginning of the program: 
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Solution to tutorial 4.1 

As the remark is to be at the beginning of the program, we 
shall make it line number 5 as follows: 

S REh Solution to tutorial 4.1 

The space after REM in line 5 must not be omitted. The 
program now becomes: 

S REH Solution to tutorial 4.1 
18 CIS 

28 PRINT 'He are going out noN.' 

38 PRINT “Have you switched off the television?' 

Enter and RUN the program. The computer first executes line 
5. However the REM statement tells it that this is a remark and 
is to be ignored. The computer then executes line 10 etc. 

A program may contain more than one REM statement and 
they may be placed at any point within the program. 


Example 4d 

Write, enter and RUN a program that displays on the screen a 
set of instructions to make a telephone call. 

A possible program could be: 

18 REH Haking a telephone call 
28 CLS 

38 PRINT 'Lift the receiver.' 

48 PRINT 'Dial the nueber.' 

S8 PRINT 'Chat to the person.' 

68 PRINT 'Replace the receiver.' 


Tutorial 

4.5) Repeat Tutorial 4.2 but this time include a REM state¬ 
ment at the beginning. 

4.6) Repeat Tutorial 4.3 but this time include a REM state¬ 
ment at the beginning. 

4.7) Write, enter and RUN a program that displays on the 
screen a set of instructions to choose a library book. 

4.8) Write, enter and RUN a program that displays on the 
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screen a set of instructions to wash clothes in an 
automatic washing machine. 


Creation of outline shapes 

The PRINT statement can be used to create some simple 
shapes and drawings. 

Example 4e 

Write a program to display the following shape on the screen: 


> t 

t * 

t * 


A possible program could be: 


10 REH Draws a rectangle 
20 CIS 
30 PRINT 

40 PRINT *■ 

S0 PRINT *t »* 

60 PRINT M »■ 

70 PRINT 'litiHttiHta* 

Example 4f 

Write a program that draws a sailing boat on the screen. 

A possible program could be (the dashes in line 50 are the 
underscore symbol SHIFT 0 and in lines 130 and 160 are the 
minus sign): 

10 REH Draws a sailing boat. 

20 CIS 

30 PRINT ■ <1* 

40 PRINT " 1* 
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50 PRINT 
60 PRINT 
70 PRINT 
80 PRINT 
90 PRINT 
100 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
180 PRINT 
190 PRINT 








1 * 

!• 


)• 

)■ 

)• 

)• 

)• 

)“ 

)• 


' 1 /• 

■ 1 /■ 

■vvvvvvvVVVVVVVVVVVVVVV' 


Tutorial 

4.9) Write, enter and RUN a program to give the following 
screen display for the beginning of a computer game: 

+++++++++++++++ 


♦ + 

t SPACE6ANE * 

* * 

+ by + 

+ ♦ 

+ J. Siith + 

+ + 


+++++♦++++++♦++ 


4.10) Write, enter and RUN a program that draws a face on 
the screen, using PRINT statements. 

4.11) Write, enter and RU N a program that draws a car on the 
screen using PRINT statements. 


Solutions to the tutorials 

When reading these solutions remember that there is often an 
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alternative way to write a program. If your solution to 4.10 and 
4.11 gives the desired result then it is equally acceptable. 

4.1) 18 CLS 

20 PRINT 'He are going out noM.' 

30 PRINT "Have you SNitched off the television?' 

4.2) 10 PRINT 'It Mill soon be holiday tiee.' 

28 PRINT 'Nhere are you going this year?' 

4.3) 10 CLS 

20 PRINT 'I want a library book but I can't aake' 

30 PRINT 'up ay aind ehich book to borrow.' 

4.4) 10 CLS 

28 PRINT 'Please shut the gate or the dog will' 

30 PRINT 'escape.' 

5 REN Solution to tutorial 4.5 
18 PRINT 'It will soon be holiday tiae.' 

20 PRINT 'Nhere are you going this year?' 

4.6) 5 REH Solution to tutorial 4.6 
10 CLS 

20 PRINT 'I want a library book but I can't lake' 

38 PRINT 'up ay aind which book to borrow.' 

4.7) 10 REH Choosing a library book. 

20 CLS 

30 PRINT 'So to the library.' 

48 PRINT 'Look at the books on the shelves.' 

50 PRINT 'Choose your book.' 

60 PRINT 'Take it to the librarian for staaping.' 

70 PRINT 'Give the librarian your ticket.' 

80 PRINT 'Leave with your book.' 

4.8) 10 REH Using an autoaatic washing aachine. 

20 CLS 

30 PRINT 'Put the clothes in the aachine.' 

48 PRINT 'Shut the door.' 

50 PRINT 'Place the correct aaount of washing' 

60 PRINT 'powder in the dispenser.' 

70 PRINT 'Select the required washing prograa.' 

88 PRINT 'Switch on the aachine.' 

90 PRINT 'Nait until the washing is coaplete.' 
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100 PRINT 'Open the door.' 


110 

PRINT 'Reiove the clothes.' 


CM 

REN Dr IMS title page ot gaee 

CIS 


30 

PRINT ' 

♦++♦+♦+++++++++' 

40 

PRINT ' 

t 

+' 

50 

PRINT ' 

* SPACEHAZE 

+' 

60 

PRINT ' 

+ 

+' 

70 

PRINT • 

+ by 

+' 

80 

PRINT ' 

+ 

+' 

90 

PRINT ' 

J. Saith 

+• 

100 PRINT ' 

+ 

+' 

110 PRINT ' 

+♦♦++♦++♦++++++' 



Chapter Five 


Storing your programs 


Enter the program: 
la CIS 

20 PRINT "It is five o'clock." 

The computer will remember this program until the power is 
switched off or until it is instructed to forget it. Switch off the 
computer, wait a few seconds and then switch it on again. 
Type: 

LIST 

Press an ENTER key. You will find that the program cannot be 
listed as it was lost from the computer's memory when the 
power was switched off. If you require it again you will have to 
re-enter it. This could be very time-consuming especially if the 
program was long. The floppy disk drive to the right of the 
keyboard can be used to store programs onto a disk. The 
programs can then be re-entered into the computer's memory 
when required. 



The systems disk for the Amstrad CPC 664 

A systems disk is supplied with the computer. The surface of 
the actual disk is visible through the large elliptical hole and 
the small round holes on both sides of the disk. As the surfaces 
are very delicate you should never touch them and you should 
keep them free of dust by returning the disk to its plastic 
package when not in use. If the disk is damaged your 
programs will not load back into the computer and you will 
have to retype them. Check that the write protection is on as 
described on page 12 Chapter 1 of the User Instructions 
Manual. When the write protection is on the computer cannot 
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write to the disk thus preventing you from accidentally 
overwriting or erasing the systems programs. 


Making a copy of a disk 

It is strongly recommended that you make a copy of the 
systems disk, keep the original as a backup and use the copy. 
Switch on the computer and insert the systems disk into the 
floppy disk drive with side one upwards as shown on page: 11 
Chapter 1 of your User Instructions Manual. Type (where I is 
SHIFT @): 

Icpi 

Press an ENTER key. The red indicator light will illuminate for 
a few seconds while the disk is spinning. The computer then 
displays: 

CP/H 2.2 - Aistrad Contuier Electronics pic 
A>l 

The systems program DISCCOPY can now be used to copy 
side one of the systems disk onto side one of a new disk. Copy 
the systems disk by following the instructions on page 74 
Chapter 1 of the User Instructions Manual, taking care at each 
stage not to remove the disk from the floppy disk drive until 
the red indicator light has gone out. When the computer asks: 

Do you Nant to copy another disc (Y/N): 

Press Y. Now copy side two of the systems disk onto side two 
of the backup disk by inserting the disks with side two 
upwards. When the second side has been copied put the write 
protection on the backup disk as described on pages 12 and 13 
Chapter 1 of the User Instructions Manual. Now return both 
disks to their plastic covers. You can return to BASIC if you 
switch the computer off and then on, or press and hold down 
both the CTRL and SHIFT keys. Now press and release the 
ESC key and then release the CTRL and SHIFT keys. This is 
called a keyboard reset. Both of these methods clear the 
computer's memory. 

You should always remove the disk from the floppy disk 
drive before switching the computer on or off or you may 
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damage the disk. 


Formatting a disk 

Before a disk can store your programs, you must format it. 
Place the backup systems disk in the floppy disk drive with 
side one upwards and type: 

icpi 

Press an ENTER key. The computer then displays: 

CP/H 2.2 - Aiftrid Coniuier Eltctronici pic 
A>l 

Type: 

loriat 

Press an ENTER key. The computer now displays: 

F0RI1AT V2.8 

Please insert disc to be foraatted into drive A 
then press any key: I 

Remove the systems disk and insert the disk with the side that 
you wish to format upwards. Press the space bar. When the 
formatting is complete the computer asks if you wish to format 
another disk. If you wish to format the other side press the Y 
key, turn the disk over and press the space bar. 


Saving a program onto a disk 

Enter the program: 

10 CLS 

20 PRINT Mt is five o'clock.* 

Place a formatted disk into the floppy disk drive. Before you 
can store the program onto a disk you must decide on a name 
for the program. The program name must contain less than 
nine characters made up of letters or numbers. Assume that 
you decide to call it Time. The program can be stored by 
typing: 
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SAVE 'Tile* 

Press an ENTER key. The disk spins for a few seconds while it 
is storing the program. Remove the disk from the floppy disk 
drive and place it in its plastic cover. 

Notice that when naming a program the computer cannot 
distinguish between upper and lower case letters. Hence the 
program names 

Tile TINE tiie 

would all be regarded as the same. Also when naming a 
program always give it a different name from those already 
stored on the disk. 


Cataloguing the disk 

The CAT statement will list the names of all the programs 
currently stored on the disk. Place the disk into the floppy disk 
drive and type; 

CAT 

Press an ENTER key. The disk runs for a few seconds after 
which the computer displays a list of all the programs stored 
on the disk followed by the amount of free space on the disk. 
Notice that the program named TIME that you stored has 
been changed to: 

TIME .BAS IK 

the BAS is short for BASIC indicating that it is a BASIC 
program. The number following the BAS gives an indication 
of the size of the program. As this is not important to us it will 
not be discussed further. 

Loading a program from a disk 

Assume that you wish to LOAD the program called Time, 
then insert the disk containing the program into the floppy 
disk drive and type: 

LOAD 'Tile' 
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Press an ENTER key. The disk runs for a few seconds. When it 
stops the program is loaded. Return the disk to its cover and 
type: 

LIST 

Press an ENTER key. The program should now be displayed 
on the screen. 


Removal of a program from the disk 

Place the disk containing the program Time into the floppy 
disk drive. Assume that you wish to delete the program called 
Time, then type: 

lERA.'Tiie.BAS' 

Press an ENTER key. The disk spins for a few seconds. When 
it stops the program is deleted. Catalogue the disk to verify 
this. Return the disk to its plastic cover. 



Chapter Six 


Say it in colour 



Although all your previous screen displays have had yellow 
lettering on a blue background, your Amstrad CPC 664 can 
display several colours at once depending on the screen 
display mode. 


Screen display mode 1 

In this mode the screen has 25 lines, each having up to 40 
characters. The computer can display four colours which can 
be thought of as inks numbered from 0 to 3. The colours of the 
four inks are shown in Table 6.1. 


Ink number 

Colour 

0 

Blue 

1 

Bright Yellow 

2 

Bright Cyan 

3 

Bright Red 


Table 6.1 

The computer enters mode 1 when it is switched on. It then 
fills its pen with ink number 1 (i.e. bright yellow) and colours 
the background with ink number 0 (i.e. blue). Hence it 
displays bright yellow characters on a blue background. 


Screen display mode 0 

In this mode the screen has 25 lines each having up to 20 
characters. The computer can display sixteen colours which 
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can again be thought of as inks numbered from 0 to 15. The 
colours of the sixteen inks are shown in Table 6.2. 


Ink number 

Colour 

0 

Blue 

1 

Bright Yellow 

2 

Bright Cyan 

3 

Bright Red 

4 

Bright White 

5 

Black 

6 

Bright Blue 

7 

Bright Magenta 

8 

Cyan 

9 

Yellow 

10 

Pastel Blue 

11 

Pink 

12 

Bright Green 

13 

Pastel Green 

14 

Flashing Blue/Bright Yellow 

15 

Flashing Pink/Sky blue 


Table 6.2 


To enter mode 0 type (noticing the space between the MODE 
and the 0): 

HODE I 

Press an ENTER key. The computer enters mode 0, clears the 
screen and displays the usual Ready message. Type; 

PRINT 'This is sode B.' 

Press an ENTER key. You will find that the characters 
including the cursor are now twice the usual width. This size 
of print is useful for short phrases but is difficult to read in 
long sentences. However as this mode has 16 colours it is 
useful when creating coloured pictures on the screen. 

You can return to mode 1 by typing (noticing the space 
between the MODE and the 1): 

HODE r 

Press an ENTER key. The computer enters mode 1, clears the 
screen and displays the usual Ready message. 

In the MODE statement the space after the word MODE must 
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The PEN statement 

This statement allows you to change the colour of the 
characters. Enter mode 1. The computer, which can now use 
the four inks shown in Table 6.1, fills its pen with ink number 
1 (i.e. bright yellow). If you wish to display bright red 
characters then you must instruct the computer to fill its pen 
with bright red ink which is ink number 3 in Table 6.1. Type 
(noticing the space between PEN and the 3): 

PEN 3 

Press an ENTER key. The PEN 3 statement instructs the 
computer to fill its pen with ink number 3 in Table 6.1 (i.e. 
bright red). Hence the computer displays its Ready message 
in bright red ink. Type: 

PRINT 'Ny pen is filled eith bright red ink.' 

Press an ENTER key. The computer now displays the sentence 
on the screen in bright red. 

In the PEN 3 statement the space after PEN must not be 
omitted. 


Example 6a 

Write a program to select mode 1 and display on the screen in 
bright cyan: 

This is lode 1. 

Hy pen is filled Nith bright cyan ink. 

In mode 1, bright cyan is ink number 2 and hence the 
statement PEN 2 will be required to fill the computer's pen 
with this colour. A possible program could be: 

IB REH Write bright cyan characters in tode 1 
2B NODE 1 
3B PEN 2 

40 PRINT 'This is lode 1.' 

50 PRINT 'Hy pen is filled with bright cyan ink.' 
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Before entering any program it is best to have a pen colour 
that offers a good contrast with the background. The easiest 
way to achieve this is to return to the power up colours using a 
keyboard reset. 

Do a keyboard reset, then enter and RUN the program. If you 
wish to list the program after it has been RU N, it will be easier 
to read if it is in the power up colours. However if you switch 
off or do a keyboard reset then you will clear the computer's 
memory and lose the program. Type (noticing the spaces 
between both the words CALL and the minus signs): 

CALL -17409:CALL -17586 

Press an ENTER key. This is called a software reset and returns 
the screen to the power up colours without affecting your 
program. Now LIST your program. 

As the numbers in the software reset are not easy to 
remember, it is helpful to store them in the computer on power 
up. If you type: 

key 128,'CALL -174B9;CALL -17586'+CHRII13) 

and then press an ENTER key, the software reset will be stored 
in the number pad key /O. Press the key fB and the computer 
will do a software reset. The information will be retained in 
this key until you do a keyboard reset or switch off. Notice that 
the key cannot now be used to enter the number 0. 

Example 6b 

Extend the program in Example 4f so that a bright yellow 
sailing boat is drawn in mode 0 with the flag flashing between 
pink and sky blue and the water being bright blue. 

Table 6.2 shows that in mode 0: 

• flashing pink and sky blue is ink number 15 and hence the 
statement PEN 15 will fill the computer's pen with this 
colour 

• bright blue is ink number 6 and hence the statement P E N 6 
will fill the computer's pen with this colour 

• bright yellow is ink number 1 and hence the statement PEN 
1 will fill the computer's pen with this colour. 

The program would become: 
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10 REH Draws a sailing boat 

20 REN Select eode 0 and flashing pink/sky blue characters 
30 NODE 0 
40 PEN IS 

S0 REH Draw the flag 
&0 PRINT • <!■ 

70 REH Select bright yellow characters and draw reeainder of 
the boat 
B0 PEN 1 

90 PRINT ■ 1' 

100 PRINT • _■ 

110 PRINT • ) )■ 

120 PRINT" ) )• 

130 PRINT • ) )• 

140 PRINT ■ ) )■ 

150 PRINT ■ ) )" 

160 PRINT • ) )■ 

170 PRINT • ) )• 

180 PRINT ' -• 

190 PRINT • 1" 

200 PRINT • 1" 

210 PRINT ■-• 

220 PRINT "1 /• 

230 PRINT "1 /■ 

240 REH Select bright blue characters for the water 
250 PEN 6 

260 PRINT "vvvvvvvvvvvvvvvvvv" 


Do a software reset and use the NEW statement to forget the 
previous program. Enter the above program and LIST it. As 
the program has 26 lines and the screen has only 25 lines the 
first line will have scrolled off the top of the screen. Type 
(noticing that the symbol between 10 and 100 is a minus 
sign and that there is a space between LIST and 1 0): 

LIST 10-100 

Press an ENTER key. The 10—100 in the LIST statement 
instructs the computer to list only lines 10 to 100. In this way 
you can LIST part of a program. 
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Tutorial 

Before entering a program, remember to do a software reset 
and use the NEW statement to forget the previous one. 

6.1) Using mode 1, write, enter and RUN a program which 
displays in bright red; 

The ships crashed in the fog. 

6.2) Using mode 0, write, enter and RUN a program that 
displays in pink: 

6AHE OVER 

6.3) Using mode 0, write, enter and RUN a program which 
displays in bright white: 

Traffic jai ahead. 

and then in flashing pink/sky blue: 

Turn off at the next junction. 

The PAPER statement 

Do a software reset and use the NEW statement to forget the 
previous program. In all your previous screen displays the 
background colour has always been blue. The PAPER state¬ 
ment allows you to select the background colour from one of 
your inks. Lets assume that in mode 1 you wish the 
background colour to be bright red. As bright red is ink 
number 3, type (noticing the space between PAPER and 3): 

PAPER 3 

Press an ENTER key. The PAPER 3 statement instructs the 
computer to fill the background with ink number 3 (i.e. bright 
red). 

The Ready message is now bright yellow on a bright red 
background but the rest of the screen still has its blue 
background. The background only changes to the new colour 
when a character is displayed on the screen. The colour of the 
cursor which becomes sky blue is controlled by the computer 
and not by the PAPER statement. Type: 
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PRINT "The background is bright red.' 

Press an ENTER key. The computer displays on the screen in 
bright yellow on a bright red background: 

The background is bright red. 

Again notice that the bright red background only appears 
where characters have been displayed on the screen. 

Clear the screen using the C L S statement. The centre of the 
screen will now be bright red surrounded by a blue border. 
This border has always been there but was not noticeable since 
it was the same colour as the centre of the screen. The 
computer can only write on the centre of the screen. 

In the PAPER 3 statement the space after PAPER must not 
be omitted. 


Example 6c 

Write a program in mode 0 which displays in black characters 
on a flashing background of pink and sky blue: 

6AHE OVER 

Table 6.2 shows that in mode 0: 

• flashing pink and sky blue is ink number 15 and hence the 
statement PAPER 15 will make the background this colour 

• black is ink number 5 and hence the statement PENS will 
fill the computer's pen with this colour. 

Do a software reset and use the NEW statement to forget the 
previous program. The program could be: 

IB REN End of gaie display 

20 REN Select lode 8 and flashing pink/sky blue background 
3B NODE B 
40 PAPER IS 

SB REN Clear screen to flashing pink/sky blue 
60 CIS 

70 REN Select black characters 
80 PEN S 

90 REN Display the text 
100 PRINT 'SANE OVER' 
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Tutorial 

Before entering a program, remember to do a software reset 
and use the NEW statement to forget the previous one. 

6.4) Write a program in mode 1 that selects bright yellow 
characters on a bright red background and displays: 

Hy nate is John. 

6.5) Change Example 6c to display GAME OVER on a pastel 
green background and then add an extra line: 

DO YOU WISH TO PLAY AGAIN? 

displayed in bright cyan on the same background. 


Multicoloured backgrounds 

It is possible to have several background colours on the screen 
at the same time. 

Do a software reset and use the NEW statement to forget the 
previous program. Let's assume you would like to display on 
the screen in mode 1: 

This is a bright cyan background. 

This is a bright red background. 

where the first line should have a bright cyan and the second 
line a bright red background. 

A possible program could be: 

10 REH Illustration of different backgrounds 
20 REH Select eode 1 
30 HODE 1 

40 REH Select a bright cyan background 
50 PAPER 2 

60 PRINT 'This if a bright cyan background.* 

70 REH Select a bright red background 
80 PAPER 3 

90 PRINT 'This is a bright red background.' 

Enter and RUN the program. The computer displays on the 
screen with a bright cyan background: 

This is a bright cyan background. 
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and then displays on the screen with a bright red background: 

This is a bright red background. 

The background of the rest of the screen remains blue. 


Example 6d 

Write a program to display in mode 1 in bright red on a bright 
yellow background. 

Mhere has the ball gone? 

It should then display in bright yellow on a bright red 
background: 

1 think it is over there. 

Do a software reset and use the NEW statement to forget the 
previous program. Enter the program which could be: 

le REH Exaiple b.i 
2i REh Select aode 1 
30 MODE i 

40 REH Select bright yelloN background and bright red 
characters 
S0 PAPER 1 
&0 PEN 3 

70 PRINT 'Where has the ball gone?' 

B0 REH Select bright red background and bright yelloH 
characters 
90 PAPER 3 
100 PEN 1 

110 PRINT 'I think it is over there.' 


Tutorial 

Before entering a program, remember to do a software reset 
and use the NEW statement to forget the previous one. 

6.6) Write a program in mode 1 which clears the screen in 
bright cyan and then displays in bright red on a bright 
yellow background: 


We are going out noN. 
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It should then change to bright cyan on a bright red 
background and display; 

Havt you iMitchid off the tcleviiion? 

6.7) Write a program in mode 0 which clears the screen in 
bright yellow and then displays in pink: 

Ny birthday is on the 19th April. 

It should then change the background to bright cyan and 
display in bright green: 

When is your birthday? 


Solutions to the tutorials 

6.1) le REH Tutorial 6.1 
20 REH Select eode 1 
30 HODE 1 

40 REH Select bright red characters 
S0 PEN 3 

60 PRINT 'The ships crashed in the fog.' 

6.2) 10 REN End of gaee display 
20 REH Select code 0 

30 HODE 0 

40 REN Select pink characters 
50 PEN 11 

60 PRINT 'SANE OVER' 

6.3) 10 REH Tutorial 6.3 
20 REN Select eode 0 
30 HODE 0 

40 REN Select bright ehite characters 
50 PEN 4 

60 PRINT 'Traffic jae ahead.' 

70 REH Select flashing pink/sky blue characters 
80 PEN 15 

90 PRINT 'Turn off at the' 

100 PRINT 'next junction.' 

6.4) 10 REH Tutorial 6.4 

20 REH Select bright red background 
30 PAPER 3 

40 PRINT 'Hy naee is John.' 
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6.5) 10 REH End of gaie display 

20 REH Select lode 0 and pastel green background 
30 HODE 0 
40 PAPER 13 

50 REH Clear the screen to pastel green 
60 CIS 

70 REH Select black characters 
80 PEN 5 

90 PRINT 'BAHE OVER* 

100 REH Select bright cyan characters 
110 PEN 2 

120 PRINT 'DO YOU NISH TO* 

130 PRINT * PLAY AGAIN?* 


6 . 6 ) 10 REH Tutorial 6.6 
20 REH Select lode 1 
30 HODE 1 

40 REH Select bright cyan background 
50 PAPER 2 

60 REH Clears the screen to bright cyan 
70 CLS 

80 REH Select bright yelloN background 
90 PAPER 1 

100 REH Select bright red characters 
110 PEN 3 

120 PRINT *Ne are going out noH.* 

130 REH Select bright red background 
140 PAPER 3 

150 REH Select bright cyan characters 
160 PEN 2 

170 PRINT "Have you switched off the television?" 


6.7) 10 REH Tutorial 6.7 
20 REH Select lode 0 
30 HODE 0 

40 REH Select bright yellow background 
50 PAPER 1 

60 REH Clear the screen to bright yellow 
70 CLS 

80 REH Select pink characters 
90 PEN 11 

100 PRINT *Hy birthday is on* 
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110 PRINT 'the 19th April.* 

120 REN Select bright cyan background 
130 PAPER 2 

140 REN Select bright green characters 
150 PEN 12 

160 PRINT *Nhen is your" 

170 PRINT * birthday?* 



Chapter Seven 


Designing your screen 
layout 


Enter and RUN the program: 

10 PRINT 'SPACE SANE' 

20 PRINT 'by J Siith.' 

The screen displays: 

SPACE SANE 
by J Siith. 

After the computer had executed the PRINT statement at line 
10, it automatically moved the cursor to the beginning of the 
next line. As the cursor indicates the position of the next 
character on the screen the phrase: 

by J Siith. 

was displayed on this line. A better screen display would be 
obtained if the phrases had been centred on the screen with a 
few lines between them. If you could position the cursor on the 
screen then you would be able to create your own screen 
layout. The statements introduced in this chapter will enable 
you to do this. 



A screen display planner for mode 1 

Screen displays should first be drawn on a screen display 
planner. As the mode 1 screen contains 25 lines each of 40 
characters, a screen display planner can be made by dividing a 
sheet of A4 paper (29.7 cm. by 21 cm.) into 40 columns and 25 
rows as shown in Fig. 7.1. Each box on your screen display 
planner should be almost a square, representing one character 
on the screen. 
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25 cm 



Figure 7.1 Mode 1 screen display planner 


Keep this as your master copy and use tracing paper when 
designing your screen displays. 


A screen display planner for mode 0 

In mode 0 the screen contains 25 lines each of 20 characters. A 
screen display planner can be made by dividing a sheet of A4 
paper (29.7 cm. by 21 cm.) into 20 columns and 25 rows as 


25 cm 



Figure 7.2 Mode 0 screen display planner 
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shown in Fig. 7.2. Each box on your screen display planner 
should be approximately twice as wide as it is high and 
represents one character on the screen. 

Keep this as your master copy. 


Tutorial 

7.1) In the screen display planner shown in Fig. 7.3 deter¬ 
mine the column and row number of each character. 



Figure 73 Screen display planner for Tutorial 7.1 

7.2) Mark the following characters on your mode 0 screen 
display planner: 


Character 

Column 

Row 

A 

1 

24 

B 

19 

2 

H 

10 

8 


20 

25 

4 

1 

1 

P 

2 

19 


The LOCATE statement 


The LOCATE statement is used to move the cursor to a new 
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position on the screen. The statement: 

LOCATE S,ie 

moves the cursor to column 5 and row 10. We shall call this the 
screen position 5,10. The space after LOCATE in the above 
statement must not be omitted. 



Assume that you wish to create the screen display in mode 1, 
shown in Fig. 7.4. When creating a screen display you should 
always start by clearing the screen. As the H of HELLO is at 
column 18 and row 6 the cursor should be moved to screen 
position 18,6 using the LOCATE statement: 

LOCATE 18,6 

The word HELLO can then be displayed using a PRINT 
statement. 

As the next line starts at screen position 6,12 a LOCATE 
statement can be used to move the cursor to this position and 
then the line can be displayed. The complete program to give 
the screen display could be: 

10 REH Screen display 
20 CLS 

30 LOCATE 18,6 
40 PRINT 'HELLO' 

50 LOCATE 6,12 

60 PRINT 'I ae your Aestrad cotputer' 
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Enter and RUN the program. The computer displays the two 
lines as required but on completing the program the computer 
also displays: 

Ready 

I 


The easiest way to suppress the Ready is to display it in 
the background colour. You could add a line 70: 

71 PEN I 

This would tell the computer to fill its pen with blue ink which 
is the same as the background colour. Hence the Ready 
would not be visible. Add this line to your program and RUN 
it. The Ready is now invisible. 


Tutorial 

7.3) Change the program of Example 4d to obtain a good 
screen display. 

7.4) Change the program of Example 6c to obtain a good 
screen display. 


Use of the semi-colon in the PRINT statement 

Enter and RUN the program: 

10 PRINT 'caf 
20 PRINT "dog* 

The computer displays: 

cat 

dog 

Now put a semi-colon at the end of line 10 as follows: 

10 PRINT 'caf; 

20 PRINT 'dog' 

RUN the program. At line 10 the computer displays: 


cat 
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but since it is followed by a semi-colon, it does not position 
the cursor at the start of the next line as usual but leaves it at 
the end of the word cat. Hence at line 20 the word d o g is 
displayed next to C a t and not on the next line as previously. 

Placing a semi-colon after the quotation marks in a PRINT 
statement tells the computer not to move the cursor to the 
beginning of the next line. This can be useful if you wish to 
display cat and dog in different colours. Assume cat is to 
be written in bright red and dog in bright cyan. The program 
could be modified to: 

II REH Use of the ; in the PRINT stateient. 

20 REH Select bright red characters 
31 PEN 3 
41 PRINT "cat’} 

51 REH Select bright cyan characters 
61 PEN 2 
70 PRINT 'dog' 

Example 7a 

Write a program in mode 0 that displays in the centre of the 
screen: 

DANGER!-ICE 

The computer should display DANGER ! — in bright red on a 
bright white background and ICE in black on a bright 
magenta background. The rest of the screen should be blue. 
A possible program could be: 

II REH Naming sign 
20 REH Select lode I 
30 HODE I 

40 REH Select bright red characters and bright white 
background 
51 PEN 3 
60 PAPER 4 

70 REH Locate and display DANGERI- 
80 LOCATE 4,12 
90 PRINT ’DANGER!-'; 

100 REH Select black characters and bright eagenta 
background 
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110 PEN 5 
120 PAPER 7 
130 REH Display ICE 
140 PRINT MCE* 

150 REH Hide the cursor 
160 PAPER 0 
170 PEN 0 

Tutorial 

7.5) Write a program in mode 0 to display in the centre of the 
screen: 

Honday 1st April 

The computer should display the day in bright yellow on 
a blue background and the date in black on a blue 
background. 

7.6) Write a program in mode 1 to display in the centre of the 
screen: 

The background is bright red. 

The computer should display the words The back¬ 
ground is in the usual screen colours and the words 
bright red in bright yellow on bright red. 

7.7) Change the program of Example 6a so that the words 
bright cyan are displayed in bright cyan on a blue 
background and the other words are in bright yellow on 
a blue background. 

7.8) Extend your program for Tutorial 4.9 so that in mode 0 

Solutions to the tutorials 


Character 

Column 

Row 

A 

3 

2 

B 

13 

9 

C 

28 

3 

D 

40 

1 

E 

4 

21 

F 

17 

25 

G 

31 

17 

H 

36 

11 
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the display is centred on the screen with the + signs in 
bright yellow and the text in bright red on a blue 
background. 


7.2) 



Figure 7.5 


7.3) 10 REH Making a telephone call 
2B REH Select eode 1 
30 NODE 1 
40 CIS 

50 LOCATE 8,10 

60 PRINT ’Lift the receiver.* 

70 LOCATE 8,12 

80 PRINT 'Dial the nuiber.' 

90 LOCATE 8,14 

100 PRINT 'Chat to the person.' 

110 LOCATE 8,16 

120 PRINT 'Replace the receiver.' 

7A) 10 REH End of gate display 

20 REH Select lode 0 and flashing pink/sky blue background 
30 HODE 0 
40 PAPER 15 

50 REH Clear the screen to flashing pink/sky blue 
60 CLS 

70 REH Select black characters 
80 PEN 5 

90 REH Locate and display the text 
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m LOCATE 5,12 
110 PRINT 'GAME OVER* 

7.5) 10 REN Displays the date 
20 REN Select eode 0 

30 NODE 0 

40 LOCATE 2,10 

50 PRINT 'Nonday 

60 REN Select black characters 

70 PEN 5 

80 PRINT '1st April' 

7.6) 10 REN Tutorial 7.6 
20 REN Select aode 1 
30 NODE 1 

40 LOCATE 5,10 

50 PRINT 'The background is '; 

60 REN Select bright red background 
70 PAPER 3 

80 PRINT 'bright red.' 

7.7) 10 REN Tutorial 7.7 
20 REN Select aode 1 
30 NODE 1 

40 LOCATE 12,8 

50 PRINT 'This is aode 1.' 

60 LOCATE 2,10 

70 PRINT 'Ny pen is filled aith '| 

80 REN Select bright cyan characters 
90 PEN 2 

100 PRINT 'bright cyan'; 

110 REN Select bright yellow characters 

120 PEN 1 

130 PRINT ' ink.' 
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7.8) IB REH Draws title page of gaae 
28 REH Select eode B 
3B HODE B 

4B REH Draw the + signs tirst in bright yellow 
SB LOCATE 3,8 

6B PRINT '++++++++♦++++++■ 


7B LOCATE 3,9 

8B PRINT ■+ +■ 

98 LOCATE 3,IB 

IBB PRINT ■+ +■ 

118 LOCATE 3,11 

128 PRINT •+ +■ 

13B LOCATE 3,12 

148 PRINT •+ +’ 

15B LOCATE 3,13 

168 PRINT "+ +■ 

17B LOCATE 3,14 

IBB PRINT ■+ +• 

19B LOCATE 3,15 

2BB PRINT ■+ +' 

21B LOCATE 3,16 


22B PRINT ■++♦♦♦+♦++++♦+++■ 

23B REN Display the text 

24B REH Select bright red characters 

2SB PEN 3 

26B LOCATE 6,IB 

27B PRINT "SPACEHAZE* 

28B LOCATE 9,12 
298 PRINT 'by* 

3B8 LOCATE 6,14 
31B PRINT 'J. Seith' 

328 REN Hove cursor to line 18 and hide it 
33B LOCATE 1,18 
348 PEN B 



Chapter Eight 


Drawing with your 
Amstrad CPC 664 



The building blocks 

This chapter will show you how to make your Amstrad CPC 
664 draw pictures composed of standard building blocks just 
as in a mosaic. 

Type: 

MODE e 

Press an ENTER key. Type (remembering that brackets are the 
SHIFT 8 and 9 keys and noticing the space between PRINT 
and CHR$): 

PRINT CHRt(224) 

Press an ENTER key. The screen will display building block 
number 224 which is a smiling face. A complete list of the 
building blocks is given in Chapter 7 pages 9 to 20 of your User 
Instructions Manual. Block 224 is drawn on page 18. Beneath 
the drawing is the block number (224) followed by two other 
numbers that you will not require to use. 

You will see that the drawing consists of an 8 by 8 pattern of 
black and white dots. The white dots are represented on your 
monitor as the background colour (blue) and the black dots as 
the pen colour (bright yellow). The 8 by 8 pattern occupies one 
box on your mode 0 screen display planner. 

The building blocks numbered 32 to 122 and number 163 are 
the keyboard characters that you have been using throughout 
the book. Type: 

PRINT 'h' 

Press an ENTER key. Now type: 
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PRINT CHRI(1B4) 

Press an ENTER key. Both of these PRINT statements display 
a lower case h. 

The building blocks numbered 123 to 255 are general 
designs that can be fitted together to make pictures and 
shapes. However some of them form particular patterns, as 
shown in Table 8.1, 


Block number 

Pattern 

160-162 

French and German accents 

163-166 

pound, copyright, pilcrow and section signs 

168-172 

arithmetic symbols 

174 

hook 

176-191 

Greek alphabet 

224 

happy face 

225 

sad face 

226-229 

card suits 

234,235 

male and female symbols 

236,237 

musical symbols 

238 

star 

239 

rocket 

240-247 

arrows 

248-251 

dancing man 

252 

bomb 

253 

mushroom cloud 


Table 8.1 


which gives suggested interpretations of the designs, but the 
image they create in the mind will depend on their surround¬ 
ings, colour and the thoughts of the viewer. Could block 229 be 
a spade in a pack of cards, a tree or an aeroplane? You will find 
that these designs can be used in numerous ways to create 
figures and pictures, the only limitation being the ingenuity of 
your mind! 

To display building block number 253 type: 

PRINT CHR$(253) 

Press an ENTER key. Any other block can be displayed by 
using its number in place of the 253. Display a selection of the 
building blocks on the screen so that you have an image of 
them in your mind. 

Two characters can be displayed together by typing: 
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PRINT CHR$(224);CHR$(225) 

Press an ENTER key. The semi-colon tells the computer to 
display the sad face next to the happy one rather than on the 
next line. If you wish to display the two faces on the same line 
but with two spaces between them then type: 

PRINT CHR$(224);‘ ';CHRI(22S) 

Press an ENTER key. The computer displays the happy and 
the sad face with two spaces between them. 


Designing your own picture 


You will find it easier to create a picture if you first plan it on 
your screen display planner. Assume that you drew a robot as 
shown in Fig. 8.1. If the picture is to be displayed in pink on a 
bright green background, then the first few lines of the 
program would be: 

10 REN DraH a picture in lode 8 
20 NODE 0 

30 REN Select bright green background 
40 PAPER 12 

58 REN Clear the screen to bright green 
60 CIS 

70 REN Select pink characters 
80 PEN 11 
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Figure 8.1 Mode 0 screen display planner showing robot 
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Figure 8.2 Robot figure building-block numbers 


The next stage is to convert your drawing into its building 
block numbers. These can be marked on another screen 
planner as shown in Fig. 8.2. Each line of the display will be 
displayed on the screen by using a LOCATE and then a 
PRINT statement. As the top line of the drawing starts at 
screen position 10,8 it could be displayed by the lines: 

98 REH Draw the robot 

188 LOCATE 18,8 

118 PRINT CHRI(136)|CHR$I132) 

The next line could be displayed by: 

128 LOCATE 18,9 

138 PRINT CHR$(143);CHRI(143) 

The other lines in the drawing could be displayed in the same 
way. The complete program could be: 


18 REN Draw a picture in aode 8 
28 NODE 8 

38 REN Select bright green background 
48 PAPER 12 

S8 REN Clear the screen to bright green 
68 CLS 

78 REN Select pink characters 
88 PEN 11 

98 REN Draw the robot 
188 LOCATE 18,8 
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lie PRINT CHR$(136);CHR«(132) 

12e LOCATE ie,9 

130 PRINT CHRt(143);CHR$(143) 

141 LOCATE 8,11 

158 PRINT CHRI(132);CHR«(138);CHRt(143)iCHR$(143); 

CHR$(133) 

16B LOCATE 8,11 

170 PRINT CHR$(133);CHR$(143)iCHRI(143);CHR$(143); 

CHR$(143) 

180 LOCATE 8,12 

190 PRINT CHR$(143);CHR«(143)|CHR$(143);CHR$(143); 

CHR$(143)iCHR$(143) 

200 LOCATE 9,13 

210 PRINT CHR$ll43);CHRt(143)jCHRI(143);CHR$(143); 

CHR$I138) 

220 LOCATE 9,14 

230 PRINT CHR$(138),'CHRI(143);CHRI(143);CHR$(133); 

CHR$(138) 

240 LOCATE 10,15 

250 PRINT CHR$(135);CHR$(139) 

268 LOCATE 10,16 

270 PRINT CHRI(133);CNRI(138) 

280 LOCATE 9,17 

290 PRINT CHRf(143)',CNR$(133);CHR$(138);CHR$(143) 

Enter the above program and RUN it. The computer should 
display your robot. If anything is wrong then do a software 
reset before listing the program to look for your mistake. 
SAVE the program onto a disk and call it ROBOT. 


Example 8a 

Modify the above program so that the robot has cyan hands. 

As his hands are in screen positions 8,10 and 13,14 lines 150 
and 230 will require to be changed. Line 150 displays from 
screen position 8,10 to 12,10. It must be modified so that it 
displays screen position 8,10 in cyan and the others in pink. 
The line could be expanded to: 

150 REN Select cyan characters 

151 PEN 8 

152 REN DraN his hand 

153 PRINT CHR$(132); 

154 REN Select pink characters 
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155 PEN 11 

156 REN Display the rest ot the line 

157 PRINT CHR$(138);CHR$(143);CHR$(143);CHR$(133) 

Similarly line 230 could be expanded to: 

238 REN Display all but his hand 

231 PRINT CHR$ll38);CHRI(143);CHR$(i43);CHR$(133); 

232 REN Select cyan characters 

233 PEN 8 

234 REN DraN his hand 

235 PRINT CHR$I13B) 

236 REN Select pink characters 

237 PEN 11 

Change these lines and RUN the program. The robot's hands 
should now be cyan. 

SAVE the program onto a disk and call it ROBOTSa. 


Tutorial 

8.1) If you assume that the top two rows of the above robot 
are his hat, then modify the program called ROBOTSa to 
make his hat yellow. SAVE the program onto a disk and 
call it R0B0T81. 

8.2) Modify the program ROBOT so that both his hands are 
pointing upwards. 

8.3) If you assume that the last two rows of the above robot 
are his boots, then modify the program called R 0 B 0 T 8 1 
to make his boots black. SAVE the program onto a disk 
and call it R0B0T83. 

8.4) Modify the program called R0B0T83 so that the 
computer displays in black beneath the robot the words: 

NY ROBOT 

8.5) Modify the program ROBOT so that the robot holds a 
pink flag in his right hand as shown in Fig. 8.3. 
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Figure 8.3 Robot figure waving a flag 


Transparent printing 

Assume that you wish to give the robot eyes by displaying a 
lower case o in black at screen positions 10,10 and 11,10. This 
could be achieved by adding the following lines to the 
program R 0 B 0 T 8 3: 

380 REH Give the robot eyes 

318 REH Select black characters 

328 PEN S 

330 LOCATE 10,10 

340 PRINT 'o')’o' 

Add these lines to the program and RUN it. The computer 
displays the o's in black but it hides part of the robot's face as 
it fills the rest of the box with the background colour which is 
bright green. 

A solution is to use transparent printing. This instructs the 
computer to display only the pattern on the building block and 
ignore the background. The statement: 

PRINT CHR$(22)+CHR$(1) 

instructs the computer to use transparent printing and the 
statement: 

PRINT CHR$(22)+CHR$(8) 

instructs it to return to normal printing. 
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Add the following lines to the program ROBOT83: 

300 REH Give the robot eyes 
310 REH Select transparent printing 
320 PRINT CHRi(22)tCHR$(l) 

330 REH Select black characters and display his eyes 

340 PEN S 

350 LOCATE 10,10 

360 PRINT Vi'o* 

370 REN Return to noraal printing 
380 PRINT CHR$(22)^CHRI(0) 

RUN the program. The computer will now display the eyes in 
black but the original pink background remains. 

SAVE the program onto a disk and call it BLACKEYE. 

Tutorial 

8.6) Modify the program ROBOT83 so that the robot's boots 
have buttons which flash from pink to sky blue. The 
buttons should be displayed using building block 162 at 
screen positions 9,17 and 12,17. 

8.7) Modify the program BLACKEYE so that the robot has a 
black nose. The nose should consist of building blocks 
194 and 195 at screen positions 10,11 and 11,11. 


Designing your own building blocks 

One advantage of transparent printing is that the simple 
building blocks can be superimposed on each other to produce 
more complicated patterns. Assume you wish to colour the flag 
that the robot held in Tutorial 8.5. A suggested colour scheme 
is shown in Fig. 8.4. 


bright 

cyan 


black 


bright 

yellow 


Figure 8.4 Suggested colour scheme for flag 
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This could be constructed by: 

1) Displaying building block 143 in black—this would colour 
the screen box black. 

2) Selecting transparent printing. 

3) Selecting bright cyan characters. 

4) Superimposing building block 211 on the black screen 
box—this displays the bright cyan line at the left edge of 
the screen box. 

5) Selecting bright yellow characters. 

6) Superimposing building block 209 on the screen box—this 
displays the bright yellow line at the right edge of the 
screen box. 

7) Returning to normal printing. 

The following program would display the flag at screen 
position 8,8: 

10 REN Designing your own building blocks 
28 REN Select lode 0 
30 NODE 8 

40 REN Select black characters 
50 PEN 5 
60 LOCATE 8,8 
78 PRINT CHR$(143) 

88 REN Select transparent printing 
98 PRINT CHR$(22)iCHR$(l) 

180 REN Select bright cyan characters 
110 PEN 2 
120 LOCATE 8,8 
138 PRINT CHR$I211) 

140 REN Select bright yellow characters 
150 PEN 1 
168 LOCATE 8,8 
178 PRINT CHR$(209) 

180 REN Return to noreal printing 
190 PRINT CHR$(22)+CHR$(8) 

Enter and RUN the program. The computer should display the 
desired pattern. 


Example 8b 

Assume that you wish to add blue eyebrows to the robot's eyes 
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by superimposing building block 126 on his eyes. 

Add the following lines to the program called R 0 B 0 T 8 3: 

300 REH Give the robot eyes 

310 REH Select transparent printing 

320 PRINT CHR$(22)+CHR$(i) 

330 REN Select black characters and display his eyes 

340 PEN 5 

350 LOCATE 10,10 

3&0 PRINT 'o'jV 

370 REH Select blue characters and display his eyebroNS 

380 PEN 0 

390 LOCATE 10,10 

400 PRINT CHRI(126);CHR$(126) 

410 REH Return to noreal printing 
420 PRINT CHR$(22)tCHR$(0) 

Tutorial 

8.8) Superimpose the building blocks 204,205 and 144 in 
mode 0 to make the pattern of building block 203 but 
with the two diagonals and the centre being different 
colours. 


Line graphics 

So far pictures have been created from the Amstrad CPC 664 



Figure 8.5 Graphics planner 
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building blocks. It is also possible to create pictures by 
drawing outline shapes and then colouring them. As before it 
is best to design your picture on a graphics planner. A 
graphics planner can be made from a sheet of graph paper as 
shown in Fig. 8.5. The horizontal direction is divided into 640 
points and the vertical direction into 400. Notice that unlike 
the screen display planners of the previous chapter the vertical 
axis is numbered from the bottom of the screen upwards. 

Example 8c 

In the graphics planner shown in Fig. 8.6 find the coordinates 
of the point A. 



Figure 8.6 Graphics planner for Example 8c 


In the horizontal direction the A is at point 100. The point A 
is said to have an x coordinate of 100. In the vertical direction 
the A is at point 150. The point A is said to have a y coordinate 
of 150. The coordinates of point A are written as 100,150. 


Tutorial 

8.9) State the coordinates of the other points on the graphics 
planner of Example 8c. 

8.10) Plot the following points on a graphics planner: 
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Name 

Coordinates 

A 

550,350 

B 

75,100 

C 

450,0 

D 

0,100 

E 

200,375 

F 

350,250 


The graphics colours 

The graphics colours are the same as the text colours. The 
GRAPHICS PEN and GRAPHICS PAPER statements select 
the graphics pen and background colours the same way that 
the PEN and PAPER statements select the text colours. Type 
(noticing the space on both sides of PAPER): 

GRAPHICS PAPER 2 

Press an ENTER key. The graphics background colour is now 
bright cyan but will not be displayed until the graphics screen 
is cleared. Type: 

CL6 

Press an ENTER key. The CLear Graphics screen (CLG) 
statement clears the screen to the graphics background colour 
bright cyan. Notice that the Ready message is still in the 
usual colours as only the graphic colours have been changed 
and not the text colours. 


The MOVE and DRAW statements 

The statement: 

HOVE IB,21 

instructs the computer to move the graphics cursor to the 
screen point 10,20. The statement: 

DRAM 6SB,3B 

instructs the computer to draw a line from the current position 
of the graphics cursor to the screen point 650,30 in the graphics 
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pen colour. 

Consider the program: 

10 HODE 1 
20 GRAPHICS PEN 2 
30 HOVE 10,20 
40 DRAN 650,30 

Enter and RUN the program. Line 10 sets up mode 1 and clears 
the screen. Line 20 changes the graphics pen colour to bright 
cyan. At line 30 the graphics cursor is moved to screen position 
10,20 but nothing is drawn on the screen. Line 40 instructs the 
computer to draw a line in the graphics pen colour bright cyan 
from the current graphics cursor position, i.e. from the point 
10,20 to the point 650,30. As the program is now complete the 
computer displays the usual Ready message. Notice that this 
message is displayed in the text colour (bright yellow) 
showing that the GRAPHICS PEN statement did not affect 
the text colour. Also the message is displayed at the top left 
hand corner of the screen showing that the MOVE and DRAW 
statements do not affect the position where the text is to be 
written. 

Example 8d 

Write a program to draw the outline of a bright yellow house 
with two blue windows, a bright red door and roof as shown 
in Fig. 8.7. 

400 


300 


200 


100 


0 


Figure 8.7 Graphics planner for Example 8d 



0 


600 
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A possible program could be: 

10 REH Draw the outline of a house 
20 REH Select eode 1 
30 HODE 1 

40 REH Draw the bright yelloH house 

50 GRAPHICS PEN 1 

60 HOVE 100,20 

70 DRAN 100,200 

80 DRAW 300,200 

90 DRAM 300,20 

100 DRAM 100,20 

110 REH Draw the bright red root 

120 GRAPHICS PEN 3 

130 HOVE 100,200 

140 DRAN 150,250 

150 DRAM 250,250 

160 DRAM 300,200 

170 DRAM 100,200 

180 REH Drait the bright red door 

190 HOVE 170,20 

200 DRAM 170,80 

210 DRAM 230,80 

220 DRAM 230,20 

230 DRAM 170,20 

240 REH DraN the bright cyan MindoMs 

250 GRAPHICS PEN 2 

260 HOVE 120,110 

270 DRAM 120,190 

280 DRAM 180,190 

290 DRAM 180,110 

300 DRAM 120,110 

310 HOVE 220,110 

320 DRAM 220,190 

330 DRAM 280,190 

340 DRAM 280,110 

350 DRAM 220,110 

360 REH Hide the cursor 

370 PEN 0 

SAVE the program onto a disk and call it HOUSE. 


Tutorial 

8.11) Draw the outline of a large capital A in bright red ink on 
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a black background using mode 0. SAVE the program 
onto a disk and call it A. 

Enter and RUN the program: 

10 HODE 1 
20 GRAPHICS PEN 2 
30 HOVE 10,20 
40 DRAH 650,300 

Now change line 10 to: 

10 HODE 0 

and RUN the program. Observe that in mode 0 the line is more 
ragged than in mode 1. Mode 1 is said to have a higher 
resolution than mode 0. Hence any picture is a compromise 
between the higher resolution giving smoother lines and the 
restriction of only having four colours. 


The FILL statement 


The FILL statement can be used to fill an area of the screen 
that is enclosed by drawn lines. Enter the program: 

10 REH Deionstration of filling an area 

20 HODE 1 

30 GRAPHICS PEN 3 

40 HOVE 200,100 

50 DRAH 200,150 

60 DRAH 300,150 

70 DRAH 300,100 

80 DRAH 200,100 


RUN the program which draws a bright red rectangle on the 
screen. To fill the rectangle in bright cyan the graphics cursor 
must first be moved to within the rectangle by the statement: 

HOVE 250,125 

The rectangle can then be filled by the statement: 

FILL 2 
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The complete program becomes: 

10 REH Deionstration of tilling an area 

20 NODE 1 

30 GRAPHICS PEN 3 

40 HOVE 200,100 

50 DRAH 200,150 

60 DRAN 300,150 

70 DRAH 300,100 

80 DRAH 200,100 

90 HOVE 250,125 

100 FILL 2 


It is important to realise that the outline round the area to be 
filled must be completely closed by only one colour otherwise 
the colour will spill out and fill the complete screen. 


Example 8e 

Draw, in mode 0, a triangle and colour it black on a bright red 
background. 

A suitable program could be: 

10 REH Use of the FILL coaeand 
20 HODE 0 

30 REH Select a bright red background 
40 GRAPHICS PAPER 3 
50 CLG 

60 REH Draw the black triangle 

70 GRAPHICS PEN 5 

80 HOVE 400,10 

90 DRAH 500,200 

100 DRAH 600,150 

110 DRAH 400,10 

120 REH Fill the triangle in black 
130 HOVE 500,100 
140 FILL 5 


Example 8f 

Extend Example 8e so that a bright green rectangle is drawn 
inside the triangle. 

When filling overlapping shapes the background must be 
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drawn and filled first. Add the following lines to the program 
of Example 8e: 

158 REH DraM the rectangle 

158 GRAPHICS PEN 12 

1&8 HOVE 588,158 

178 DRAH 588,178 

188 DRAH 528,178 

198 DRAH 528,158 

288 DRAH 588,158 

218 REN Fill the rectangle in bright green 
228 HOVE 518,168 
238 FILL 12 


Tutorial 

8.12) Extend the program of Tutorial 8.11 so that the letter A 
is filled with bright red ink. SAVE the program onto a 
disk and call it A F I LL. 

8.13) Extend the program of Example 8d so that the house is 
coloured. 


Writing text on a picture 


The TAG statement can be used to position text at any desired 
position on a picture. Add the following lines to the program 
HOUSE: 

378 REN Hrite text on the picture 

388 REH Select graphics colours bright red on bright yelloe 

398 GRAPHICS PEN 3 

488 GRAPHICS PAPER 1 

418 TAG 

428 HOVE 488,188 
438 PRINT 'Hy house') 

448 TAGOFF 

458 REH Hide the cursor 
468 PEN 8 


The TAG statement instructs the computer to write text at the 
graphics cursor. As line 420 moves the graphics cursor to point 
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400,100 line 430 displays: 

Ny house 

so that the top left hand corner of the M is at point 400,100. 

Notice that when displaying text at the graphics cursor the 
PRINT statement must end with a semi-colon. The text is 
written in the graphics pen colour on the graphics background 
colour. Thus it is written in bright red on bright yellow. The 
.TAGOFF statement at line 440 instructs the computer to 
display all future text at the text cursor in the text colour and 
with the text background colour. 

Tutorial 

8.14) Extend the program of Tutorial 8.12 so that the sent¬ 
ence: 

This is an A. 

is displayed at the foot of the screen in bright red. 

Solutions to the tutorials 

8.1) Change lines 70 and 80 of the program called ROBOT8a 
to: 

70 REH Select yellow characters 
80 PEN 9 

Add the following lines: 

135 REH Select pink characters 

136 PEN 11 

8.2) 10 REH Draw a picture in eode 0 
20 HOSE 0 

30 REH Select bright green background 
40 PAPER 12 

50 REH Clear the screen to bright green 
60 CLS 

70 REH Select pink characters 
80 PEN 11 

90 REH Draw the robot 
100 LOCATE 10,8 
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75 


lie PRINT CHR$(136) 
12B LOCATE 10,9 
130 PRINT CHR$(143) 
140 LOCATE 8,10 
ISB PRINT CHR$(132) 
CHR$(133);CHR$(136) 
160 LOCATE 8,11 
170 PRINT CHR$(133) 
CHR$I143);CHR$(138) 
180 LOCATE 8,12 
190 PRINT CHR$(143) 
CHR$(143);CHR$(143) 
200 LOCATE 9,13 
210 PRINT CHRI(143) 
220 LOCATE 9,14 
230 PRINT CHR$(138) 
240 LOCATE 10,15 
250 PRINT CHR»(135) 
260 LOCATE 10,16 
270 PRINT CHR$(133) 
280 LOCATE 9,17 
290 PRINT CHR$I143) 


;CHR$(132) 

;CHR$(143) 

;CHR$(138)|CNR$(143);CHR$(143)| 

;CHR$(143);CHR$(143);CHR$(143); 

!CHR$(143);CNRf(143);CHR$(143); 

CHR$(143);CHR»(143>;CHRf(143) 

CHRI(143);CHR$(143);CHRII133) 

CHRI(139) 

CHRI(138) 

CHR$(133);CHR$(138);CHR$(143) 


8.3) Add the following lines to the program called 

R0B0T81: 

255 REN Select black characters 

256 PEN 5 

8.4) Add the following lines to the program called 

R0B0T83: 

300 LOCATE 7,20 
310 PRINT 'NY ROBOT* 

8.5) 10 REN Draw a picture in aode 0 
20 NODE 0 

30 REN Select bright green background 
40 PAPER 12 

50 REN Clear the screen to bright green 
60 CLS 

70 REN Select pink characters 
80 PEN 11 

90 REN Draa the robot 
100 LOCATE 7,8 
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lie PRINT CHR$(2B9)|CHRI(143):' ■;CHRI(136);CHRI(132) 

128 LOCATE 7,9 

138 PRINT CHR$(2B9);’ ■;CHR$(143);CHR*(143) 

148 LOCATE 7,18 

ISe PRINT CHR$(2B9);CHRI(132);CHR«(138);CHRI(143)) 
CHR$(143);CHRI(133) 

168 LOCATE 0,11 

178 PRINT CHRI(133);CHR$(143);CHR«(143); 

CHRt(143)iCHRt(143) 

188 LOCATE 8,12 

198 PRINT CHR$(143);CHRt(143);CHRI(143);CHR4(143)) 
CHRI(143);CHRI(143) 

288 LOCATE 9,13 

218 PRINT CHRI(143)|CHRI(143)|CHR$(143); 

CHRI(143);CHRI(138) 

228 LOCATE 9,14 

238 PRINT CHR$(138);CHRI(143);CHRI(143); 

CHR»(133);CHRI(13e) 

248 LOCATE 18,15 

258 PRINT CHR4(135);CHR$(139) 

268 LOCATE 18,16 

278 PRINT CHR$(133);CHRI(138) 

288 LOCATE 9,17 

298 PRINT CHR$(143)|CHR$(133);CHR$(138);CHR$(143) 

8.6) Add the following lines to the program called 
R0B0T83: 

388 REN Give the robot flashing buttons 
318 REN Select transparent printing 
328 PRINT CHR$(22)+CHR$(1) 

338 REN Select flashing pink/sky blue characters and display his 

buttons 

348 PEN 15 

358 LOCATE 9,17 

368 PRINT CHR$(162) 

378 LOCATE 12,17 
388 PRINT CNRI(162) 

398 REH Return to noreal printing 
488 PRINT CHR$(22)iCHR$(8) 

8.7) Add the following lines to the program called BLACK- 
EYE: 

364 REN Give the robot a nose 

365 LOCATE 18,11 

366 PRINT CHRt(194);CHRI(195) 
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8 . 8 ) 10 REH Tutorial 8.8 

20 REH Clear the screen 
30 CLS 

40 REH Select transparent printing 
50 PRINT CHRI(22)+CHR$(1) 

60 REH Select black characters 
70 PEN 5 
80 LOCATE 10,10 
90 PRINT CHRI(204) 

180 REH Select bright red characters 

110 PEN 3 

120 LOCATE 10,10 

138 PRINT CHRtl28S) 

140 REH Select bright yelloe characters 

150 PEN 1 

160 LOCATE 18,10 

170 PRINT CHR$(144) 

180 REH Return to noreal printing 
190 PRINT CHR$(22)+CHR$(8) 


Name 

Coordinates 

B 

350,350 

C 

175,250 

D 

300,100 

E 

50,25 

F 

500,200 

G 

600,300 


8 . 10 ) 



Figure 8.8 
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8.11) le REH Capital A 
20 NODE 0 

30 REH Select bright red on black for the graphics colours 
40 GRAPHICS PAPER 5 
50 GRAPHICS PEN 3 
60 CL6 

70 HOVE 100,100 
80 DRAW 200,300 
90 DRAW 300,100 
100 DRAN 250,100 
110 DRAW 230,160 
120 DRAN 170,160 
130 DRAN 150,100 
140 DRAN 100,100 
150 HOVE 200,250 
160 DRAN 225,175 
170 DRAN 175,175 
180 DRAN 200,250 
190 REH Hide the cursor 
200 PEN 5 
210 PAPER 5 

8.12) Add the following lines to the program of Tutorial 8.11: 

190 REH Fill the A in bright red 
200 HOVE 200,275 
210 FILL 3 

220 REH Hide the cursor 
230 PEN 5 
240 PAPER 5 

8.13) Add the following lines to the program of Example 8d: 


101 

REH Fill the 

Malls in bright yelloM 

102 

HOVE 200,100 



103 

FILL 1 



171 

REH Fill the 

root 

in bright red 

172 

HOVE 200,225 



173 

FILL 3 



231 

REH Fill the 

door 

in bright red 

232 

HOVE 200,50 



233 

FILL 3 



351 

REH Fill the 

HindoMs in bright cyan 

352 

HOVE 150,150 



353 

FILL 2 
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354 HOVE 250,150 

355 FILL 2 

8.14) Add the following lines to the program of Tutorial 8.12: 

220 REH Write text on the picture 
230 TAG 

240 HOVE 50,80 

250 PRINT ’This is an A’i 

260 TAGOFF 

270 REH Hide the cursor 
280 PEN 5 
290 PAPER 5 



Chapter Nine 


Using the computer’s 
memory 


The computer's memory can be thought of as a large 
honeycomb consisting of thousands of memory cells. Each of 
these memory cells can store numbers, letters, words or 
phrases. 



Storing numbers in a memory cell 

When a number is stored in a cell, the cell is given a label to 
distinguish it from the others, as shown in Fig. 9.1, where: 

• the memory cell labelled age stores the number 6 

• the memory cell labelled daysi nMay stores the number 31 

• the memory cell labelled average stores the number 100. 



Figure 9.1 Labelled memory cells 

When labelling a memory cell it is helpful to choose a label 
which is meaningful to the content of the cell. The choice of 
the label age for a memory cell would indicate that this cell 
stores somebody's age. If the ages of several people were to 
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be stored in memory cells then labels such as Davidsage 
or Johnsage could be used. 

Although the labels given to the memory cells have been 
written in lower case letters except for proper nouns, BASIC 
cannot distinguish between lower and upper case letters. 
Hence the following labels are considered to be the same: 

age A&E Age 

We shall use lower case letters for labels as it distinguishes 
them from BASIC statements which are listed in upper case. 

You will notice that one of the cells was labelled 
daysi nMay and not days in May with spaces 
between the words. Labels must not contain spaces. Howev¬ 
er the full stop can be used instead of the spaces so that the 
label becomes days.in.May which is easier to read than 
daysi nMay. 

A label must start with a letter but can contain numbers if 
required. Labels a g e 1 and a g e 2 would be acceptable 
whereas 1 age and 2age would not be allowed. 

Labels must not contain punctuation marks other than the 
full stop. You should also avoid using symbols such as $ £ & 
+, etc. as these have a special meaning to the computer. 

Your labels must not be the same as BASIC statements 
(e.g. the label pen would not be acceptable as it is the same 
as the BASIC statement PEN). Appendix 2 lists all the BASIC 
statements which will enable you to check if your labels are 
allowed. 


Tutorial 


9.1) Which of the following labels would be acceptable? 


a) number? 
i>) Johns age 

c) SrdLetter 

d) number 

e) time 


o Ldagef 
Johns.age 
thirdLetter 
newnumber 
minutes 


Tom's.age 
Johnsage 
Letters 
new.number 
stoppage.time 


The age of a boy called Tom, who is 21, can be stored in a 
memory cell labelled Toms.age by typing: 


Toas.age « 21 
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Press an ENTER key. The computer now stores the number 21 
in a memory cell labelled T o m s . a g e. 

To display the contents of the memory cell labelled 
Toms.age on the screen type: 

PRINT Tots.age 

Press an ENTER key. The computer now searches for the 
memory cell labelled Toms . age and displays a copy of its 
contents, 21, on the screen. The memory cell still contains the 
number 21 as only a copy of its contents was displayed oh the 
screen. 

Notice that the statement: 

PRINT Tois.age 

did not have quotation marks around the label Toms.age as 
the computer was being instructed to display the contents of 
the memory cell labelled Toms.age. If you had typed 

PRINT 'Tots.age' 

the computer would have displayed: 

Tots.age 

which is not what was wanted. 

When a memory cell stores a number its label is called a 
numeric variable. The word variable is chosen as the number 
stored in the memory cell can be altered. At present the 
memory cell labelled Toms, age contains the number 21. 
Type: 

Tots.age ° 38 

Press an ENTER key. As the computer has already labelled a 
memory cell Toms.age it stores the number 30 in it and 
forgets the number that was already there. 

Example 9a 

Write a program which puts the number 9 into a memory cell 
labelled number and then displays its contents on the screen. 
A possible program could be: 

10 REN Exatple 9.a 
20 nutber » 9 
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3B PRINT nuiber 

Tutorial 

9.2) Write a program which puts the number 25 into a 
memory cell labelled number and then displays its 
contents on the screen. 

9.3) Write a program which puts your age into a memory cell 
labelled age and then displays its contents on the 
screen. 


Displaying text with the numbers on the screen 

Enter and RUN the program of Example 9a. You will notice that 
the 9 is displayed in the second column of the screen. Add the 
following line to the program: 

5 PfiPER 3 

RUN the program. The computer again displays the 9 in the 
second column of the screen but it has also included a space on 
both sides of the 9. This shows that when your Amstrad CPC 
664 displays the contents of a numeric variable it includes a 
space on both sides of it. 

You will seldom want to display a number on its own but 
may want to include an explanation, e.g. in Example 9a you 
would probably want to display: 

The eeeory cell contains 9. 

To include this message the program of Example 9a could 
become: 

10 REN Exaiple 9.a 
20 nuaber > 9 

30 PRINT "The aeiory cell contains';nuiber 

Enter and RUN the program. At line 30 the computer displays 
the phrase within the quotation marks followed by the 
contents of the cell labelled number with a space on both 
sides of it. Hence it displays: 

The aeiory cell contains 9 
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Example 9b 

Change the program of Tutorial 9.3 to display on the screen: 

I ai ... years old. 

A possible program could be: 

10 REH Displays your age 
20 age - 32 

30 PRINT M ae'jage;"years old." 

Tutorial 

9.4) Write a program to store the temperature in a memory 
cell labelled degreesC and then display on the screen: 

The teeperature is ... Centigrade. 

9.5) Write a program to store the number of marathon 
competitors in a memory cell labelled entrants and 
then display on the screen: 

... people entered the larathon. 


Storing words or phrases in a memory cell 

So far only numbers have been stored in the memory cells. 
Sometimes you may wish to store a word or phrase such as 
your name or address. This type of information is called a 
string. When a string is stored in a memory cell its label is 
called a string variable. The rules for labelling a string variable 
are the same as for a numeric variable except that they must 
end with a $ sign as in Table 9.1. 


Cell label 

Contents of the cell 

name$ 

John 

dogs 

spaniel 

meal$ 

lunch 

places 

London 


Table 9.1 


A string can consist of a mixture of numbers, letters or 
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symbols provided that its label is a string variable, as in Table 
9.2. 


Cell label 

Contents of the cell 

dates 

1st June 1984 

birthdays 

1-06-84 


Table 9.2 

The string consisting of the word red is written as the 
string "red". As quotation marks are used to enclose the 
contents of the string they cannot be part of it. Hence a string 
could not consist of the sentence: 

*1 do not know* he said. 

Tutorial 

9.6) Which of the following statements could be true for the 
Amstrad CPC 664 computer?: 

a) The memory cell labelled To ms. age contains the 
number 21. 

b) The memory cell labelled Toms.ageS contains the 
string "twenty one". 

c) The memory cell labelled seconds contains the 
string "thirty five". 

d) The memory cell labelled Toms.age$ contains the 
string "21st year". 

e) The memory cell labelled addressS contains the 
string "12 Holm Brae". 

f) The memory cell labelled age contains the number 13. 

9.7) Suggest suitable labels for memory cells that contain the 
following information: 

green Edinburgh 25th December 

6am 9 o'clock 

9.8) Match the cell contents to a suitable label in the 
following: 
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Cell label 

Cell contents 

type.of.birdS 

London bridge 

date$ 

47 

age 

Kenneth 

age$ 

10 years old 

time$ 

9-9-90 

places 

4.45pm 

year 

canary 

names 

1984 


The string "red" can be stored in a memory cell labelled 
colours by typing: 

colour* 'red' 

Press an ENTER key. The computer has been instructed to 
store the characters within the quotation marks (i.e. red) in a 
memory cell labelled c o L o u r $ (Fig. 9.2). Remember that the 
quotation marks are not part of the string. 



The contents of the memory cell labelled co L ou r $ can be 
displayed on the screen by typing: 

PRINT colour* 

Press an ENTER key. The computer displays the contents of 
the memory cell labelled c o L o u r $ on the screen but, unlike a 
numeric variable, it does not insert a space at both ends of the 
string. Hence the computer displays on the screen: 

red 


Example 9c 

Write a program that puts today's date into a memory cell and 
then displays its contents on the screen. 

A possible program could be: 
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le REH Today'I date 
20 date! * *1.01.99' 

30 PRINT date* 

Enter and RUN the program. Line 20 instructs the computer to 
store the string "1.01.99" in the memory cell labelled 
d a t e $. At line 30 the contents of this cell are displayed on the 
screen. 

Change line 20 to: 

20 date$ ■ "1st January 1999" 

RUN the program. This time the computer displays on the 
screen: 

1st January 1999 


Tutorial 

9.9) Write a program to store your telephone number in a 
memory cell and then display its contents on the screen. 

9.10) Write a program to store the name of your street in a 
memory cell and then display its contents on the screen. 


Displaying text with strings 

As with numbers you will probably want to include some 
explanation when displaying the contents of a memory cell on 
the screen. For example the program of Example 9c could be 
extended so that the computer displays: 

Today is 1st January 1999 

This would require the PRINT statement at line 30 in the 
program of Example 9c to be extended so that the computer 
displays on the same line both the phrase Today is and the 
contents of the memory cell labelled d a t e $. You might expect 
line 30 to become: 

30 PRINT "Today is";date$ 

Modify line 30 and RUN the program. The computer displays: 

Today islst January 1999 
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The computer has written the contents of the cell date$ 
immediately after Today is. The missing space on the 
screen can be obtained by including a space in line 30 between 
the i s and the quotation mark: 

38 PRINT "Today is ‘;date$ 

Modify line 30 and RUN the program again. The desired 
display is now obtained. 


Example 9d 

Write a program that stores your name in a memory cell and 
then displays on the screen: 

I aa called . 

A possible program could be: 

10 REN Displaying your naae on the screen 
20 naiel = "Jack" 

30 PRINT "1 aa called ';naae$|'.' 


Tutorial 

9.11) Extend Tutorial 9.9 so that the computer displays on the 
screen: 

Ny telephone nuaber is ... 

9.12) Extend Tutorial 9.10 so that the computer displays on 
the screen: 

I live in ... 

Sometimes more than one variable will be required in a 
program as demonstrated in the following example. 

Example 9e 

Write a program to store your name, your birthplace, your date 
of birth and your age in separate memory cells and then 
display the contents of these cells on the screen. 

A possible program could be: 

18 REN Stores and displays your naee , birthplace, date of birth 
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and age 

20 REH Clear the screen 
30 CLS 

40 naief ‘ 'John Seith* 

50 place! > 'Tiabuctoo* 

60 date! > '2nd June 1968' 

70 age - 14 

80 REH Display the intonation 
90 LOCATE 8,8 

100 PRINT 'Hy naee is ';naae! 

110 LOCATE 8,10 

120 PRINT 'and I Mas born on ';date! 

130 LOCATE 8,12 

140 PRINT 'at ';place!!'.' 

150 LOCATE 8,14 

160 PRINT 'I ai noH'jage;'years old.' 

Tutorial 

9.13) Write a program to store the title, the author and the 
publisher of a book in separate memory cells. It should 
then display in mode 1 the contents of these cells in 
bright yellow, bright cyan and bright red respectively 
on lines 8,10 and 12 of the screen. 

9.14) Write a program to store the following information 
about a car sale in memory cells and then display in 
mode 1 the contents of these memory cells suitably 
spaced on the screen. 


Month 

January 

Make of car 

Ford 

Model 

Escort estate 

Colour 

Blue 

Selling price 

£4500 


Solutions to the tutorials 

9.1) a) number? and Tom's.age are not acceptable as 
they contain the punctuation marks ? and '. 
oLdage£ is not acceptable as it contains the symbol 
£. 

b) Johns age is not acceptable as it has a space in it. 
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c) 3rdLetter is not acceptable as it starts with a 
number. 

d) All acceptable. 

e) t i me is not acceptable as it is the same as the BASIC 
statement TIME. 

9.2) 18 REH Tutorial 9.2 
20 nuaber ■ 29 
30 PRINT nuibtr 

9 3 ) 10 REH Tutorial 9.3 
20 age » 28 
30 PRINT age 

9.4) 10 REH Diiplays the teaperature 
28 degreeiC > 24 

30 PRINT 'The teaperature is';degreesC;'Centigrade.' 

9.5) 10 REH Nuaber oT aarathon coapetitors 
20 entrants ■ 2567 

30 PRINT entrants;'people entered the aarathon.' 

9.6) Statements a b d e and / could be true. 

Statement c is wrong as the memory cell labelled 
seconds must contain a number and not a string. 


Cell label 

Cell contents 

colours 

green 

towns 

Edinburgh 

dates 

25th December 

hours 

6am 

arrival.timeS 

9 o’clock 


Cell label 

Cell contents 

type.of.birdS 

canary 

dates 

9-9-90 

age 

47 

ageS 

10 years old 

times 

4.45pm 

places 

London bridge 

year 

1984 

names 

Kenneth 


9.9) 


10 REH Telephone nuaber 
20 phone.nuaberS > '0532-636311' 
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30 PRINT phone.nuibert 

9.10) 18 REN Naie oT street 

20 street! » 'Fletcher Grove' 

30 PRINT street! 

9.11) 10 REN Telephone nueber 

28 phone.nuaber! > '0S32-b3&311' 

30 PRINT 'Ny telephone nueber is ';phone.nuaber! 

9.12) 18 REN Naae of street 

28 street! » 'Fletcher Grove' 

30 PRINT 'I live in 'istreet!;'.' 

9.13) 10 REN Details of a book 

20 title! > 'Advancing aith the Electron' 

38 author! * 'Peter Seal' 

40 publisher! • 'Nicro Press' 

50 REN Clear the screen 
68 CLS 

70 REN Display title in bright yelloa 
80 PEN 1 
90 LOCATE 6,8 
100 PRINT title! 

110 REN Display author in bright cyan 

128 PEN 2 

130 LOCATE 12,10 

140 PRINT 'by '{author! 

150 REN Display publisher in bright red 

160 PEN 3 

178 LOCATE 12,12 

180 PRINT 'published by '{publisher! 

190 REN Hide the cursor 
200 PEN 0 


9.14) 10 REN Inforaation about a car 
28 aonth! ^ 'January' 

30 aake! = 'Ford' 

40 aodel! = 'Escort estate' 

50 colour! = 'Blue' 

60 price! = '£4500' 

70 REN Clear the screen 
80 CLS 

98 REN Display the inforaation 
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lei LOCATE 5,6 

lie PRINT ‘Month ‘;Hnth$ 

121 LOCATE 5,8 

138 PRINT 'Hike of car ‘;iake$ 

141 LOCATE 5,11 

15B PRINT 'Model ';eodel« 

161 LOCATE 5,12 

178 PRINT ‘Colour ’;colour$ 

188 LOCATE 5,14 

198 PRINT 'Selling price ‘;pricel 
288 REM Hide the cursor 
218 PEN 8 



Chapter Ten 


Sums with the Amstrad 
CPC 664 


Using the computer as a calculator 

Type (noticing the space between PRINT and 5 + 4): 

PRINT 5+4 

Press an ENTER key. The computer calculates 5+4 and 
displays the answer 9 on the screen. 

Type: 

PRINT 5-4 

Press an ENTER key. The computer calculates 5—4 and 
displays the answer 1 on the screen. 

Remembering that * means multiply, type: 

PRINT 5t4 

Press an ENTER key. The computer calculates five times four 
and displays the answer 20 on the screen. 

Remembering that / means divide, type: 

PRINT 5/4 

Press an ENTER key. The computer calculates five divided by 
four and displays the answer 1.25 on the screen. 

Tutorial 

10.1) Use the computer to work out the following sums: 

a) 79-5.6 

b) 123.34+145.98 

c) 1.34*2.75 
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In the above examples the computer has displayed only the 
answer to the calculation on the next line. Sometimes it is more 
convenient to display the problem and the answer as 

5+4 * 9 

This can be achieved by typing: 

PRINT "5+4 =’;5+4 

Press an ENTER key. The part of the PRINT statement in 
quotation marks is displayed on the screen. Because of the 
semi-colon the result of the calculation 5-1-4 is also displayed 
on the same line giving: 

5+4 = 9 


Example 10a 

Using a PRINT statement ask the computer to calculate 25 
times 33 and display the answer as: 

25+33 ■ ... 

Type: 

PRINT ■25*33 *'j25»33 

Press an ENTER key. The computer then displays on the 
screen: 

25*33 = 825 


Tutorial 

10.2) Using the PRINT statement ask the computer to 
calculate 6/4 and display the answer as: 

6/4 * ... 

10.3) Using the PRINT statement ask the computer to 
calculate 48-1-81-1-93 and display the answer as: 

48+81+93 » ... 

10.4) Using the PRINT statement ask the computer to 
calculate 245*73 and display the answer as: 

2W «... 
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10.5) Using the PRINT statement ask the computer to 
calculate 36—12 and display the answer as: 

36-12 » ... 

Remembering the answer to a calculation 

The answer to a calculation does not have to be displayed on 
the screen, it can be stored in a memory cell. Type: 

result ■ 5+4 

Press an ENTER key. The computer now adds 5 and 4 to get 9. 
The 9 is stored in a memory cell labelled result. The 
contents of this cell can be displayed on the screen by typing: 

PRINT result 

Press an ENTER key. The computer now displays the contents 
of the cell result on the screen. 

The above two statements can be included in a program: 

II REN Displays the sue of 5 and 4 
21 result * 5+4 
3i PRINT result 

Enter and RUN the program. The computer displays a 9 on the 
screen. One of its memory cells will be labelled result and 
contain the number 9. 

The contents of memory cells containing numbers can also 
be used in arithmetic operations. Consider the program? 

II REN Addition of the contents of two eeeory cells 

21 first.nuiber - 71.2 

31 second.nueber *34.6 

41 result ■ first.nuiber + second.nuaber 

41 PRINT first.nuiber;'+';second.nuiber;'>';result 

Enter and RUN the program. The computer displays: 

71.2 + 34.6 ^ 114.8 

Three of the computer's memory cells are now labelled as in 
Fig. 10.1. 
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Figure JO.I Storing two numbers and their sum 


Example 10b 

Write a program to calculate the fine on an overdue library 
book. Assume that the book is 19 days overdue and fines are 
charged at 2p per day. 

A possible program could be: 

10 REH Calculates the fine on an overdue book 

20 REH Fines are charged at 2p per day 

30 charge.per.day * 2 

40 days.overdue * 19 

50 fine ■ days.overdue • charge.per.day 

60 PRINT 'The aaount to be paid is'{fine;'pence.' 


Example 10c 

Write a program to display the cost of three tins of beans if one 
tin costs 15 pence. 

A possible program could be: 

10 REH Displays cost of three tins of beans 

20 cost.of.beans > IS 

30 three.bean > 3* cost.of.beans 

40 PRINT 'Cost of 3 tins of beans is';three.bean;'pence.' 


Tutorial 

10.6) An average of 625 people attended a flower show each 
day. Write a program to display on the screen the total 
number of people attending the show if it lasted for 
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seven days. 

10.7) An information office is open for three hours each day. 
Write a program to calculate the total number of hours 
that it is open in June. 

10.8) A school has 262 boys and 200 girls. Write a program to 
calculate the average number of pupils in each class 
assuming that there are 14 classes. 

10.9) Write a program to calculate the monthly repayments 
on a loan of £200 for nine months at zero interest. The 
computer should display on the screen: 

The lonthly repayeent is .... pounds. 


The ROUND statement 

You will have noticed that the computer displayed the answer 
to Tutorial 10.9 as: 

The sonthly repayeent is 22.2222222 pounds. 

Normally this would be quoted to the nearest penny as 22.22 
pounds. As only two numbers are retained after the decimal 
point it is said to be rounded off to two decimal places. The 
computer can be instructed to ROUND the payment to two 
decimal places by including the instruction: 

43 real.payunt • R0UND(payKnt,2) 

The 2 indicates that the contents of the memory cell labelled 
payment is to be rounded to two decimal places. The result 
is stored in the memory cell labelled real.payment. 

The program becomes: 

10 REN Calculate the repayaents at zero interest rate 
20 capital » 200 
30 lonth 3 9 

40 payeent ^ capital / aonth 
45 real.payaent > R0UND(payaent,2) 

50 PRINT 'The aonthly payaent is* 

60 PRINT real.payaent;'pounds.' 
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Example lOd 

Write a program to display the yearly interest on £226.35 at a 
rate of 8.5% per annum. 

A possible program could be: 

10 REH Yearly interest on £226.35 at 8.SX per annua 

21 interest.rate « 8.5/101 

30 capital * 226.35 

40 interest ■ capital * interest.rate 

50 real.interest > R0UND(interest,2) 

60 PRINT 'Yearly interest on £226.35 at 8.5X is' 

70 PRINT real.interest;'pounds.' 

Enter and RUN the program. The computer displays on the 
screen; 

Yearly interest on £226.35 at 8.51 is 
19.24 pounds. 


Tutorial 

10.10) If VAT is charged at 15%, write a program to calculate 
the VAT payable on goods costing £22.60 and display 
at the centre of the screen: 

VAT on £22.60 is .... pounds. 

10.11) Write a program to calculate the twelve monthly 
repayments on a loan. Assume that the loan is for 
£2000 and the interest rate is 8.25% per annum payable 
on the total sum borrowed. Display the result at the 
centre of a mode 1 screen in bright red on a bright 
yellow background with the rest of the screen blue. 

10.12) Write a program to display in mode 1 the cost of five 
litres of petrol at 42.8 pence a litre. The cost should be 
in bright red and any text in bright yellow on a blue 
background. 


Displaying the pound sign 

In Tutorial 10.10 the computer displayed: 
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The VAT on £22.6B is 3.39 pounds. 

You might prefer the computer to display: 

The VAT on £22.6B is £3.39 


If the computer displayed the £ sign on the screen and then 
the number 3.39, the £ sign would be overwritten by the space 
that the computer places in front of a number. Hence the 
computer must display: 

The VAT on £22.&B is 3.39 

It can then display the £ sign at the appropriate position. 
Notice the two spaces between the word i s and 3.39. The 
computer will display one of them along with the 3.39 but the 
other must be included in the PRINT statement. The program 
would become: 

IB REH Calculate VAT charge 
2B cost « 22.6B 
3B VAT.rate « IS/IBB 
4B VAT = cost t VAT.rate 
SB real.VAT » R0UND(VAT,2) 

6B REH Clear the screen 
7B CIS 

8B LOCATE 3,12 

9B PRINT ‘The VAT on £22.6B is ';real.VAT 
IBB LOCATE 24,12 
IIB PRINT ■£■ 

Enter and RUN the program. The computer displays: 

The VAT on £22.6B is £3.39 

Tutorial 

10.13) Extend the program of Tutorial 10.11 so that the 
computer displays: 

The eonthly payeent is £... 

Random numbers 


The statement: 
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will generate a random whole number from 1 to 4, i.e. it selects 
one of the following numbers 1,2,3,4- The term random means 
that if the statement is repeated a large number of times then 
each of the four numbers will be selected equally often. The 
random number selected can either be displayed on the screen 
using the PRINT statement or stored in a memory. 

Type: 

PRINT INT(RNDM)M 

Press an ENTER key. The computer now selects one of the 
numbers 1,2,3 or 4 and displays it on the screen. Repeat this 
several times and you will see the various numbers being 
selected. 

Example lOe 

Write a program to act as a die. 

A possible program could be: 

II REN Progru to liiulate • dii. 

21 CIS 

31 rindoi.nuibtr • INT(RNDt6)tl 
41 PRINT 'Thi dii ihoNi';randoo.nuiber 

SAVE this program onto a disk and call it DIE. 

Tutorial 

10.14) Write a program in mode 0 to simulate the throw of 
two dice. It should then display the result at the centre 
of the screen in black on a bright white background 
with the rest of the screen blue. 


The RANDOMIZE statement 

Repeat the following sequence several times: 

1) Switch off the computer. 

2) Switch the computer on. 

3) LOAD the program DIE from disk. 
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4) RUN it 10 times and note the random number generated. 

You will find that when the program of Example lOe is 
entered and RUN immediately after the computer is switched 
on then it always generates the same sequence of random 
numbers. Different sequences can be obtained by including at 
the beginning of the program the statement: 

RANDOHIZE TINE 

The program of Example lOe would become: 

10 REH Prograi to siaulate a die 
20 REN Vary the sequence of randoa nuabers 
30 RANDONIZE TINE 
40 CLS 

50 randoa.nueber > INT(RNDt6)+l 
60 PRINT 'The die shoas';randoa.nuaber 


Finding the faults in a program using the STOP 
and C 0 N T (continue) statements 

If your program does not produce the desired results then 
there must be a mistake in your typing, your logic or both. 
Let's assume that in the program of Tutorial 10.10 you typed 
line 40 as 

40 VAT * cost t VATrate 

and did not notice the missing full stop in VAT rate. Enter 
the program and RUN it. The computer displays: 

Thi VAT rate on £22.60 is 0 pounds. 

The STOP and CONT statements are useful in finding and 
removing the error. This is called debugging the program. Insert 
two STOP statements into the program at lines 35 and 85: 

35 STOP 

85 STOP 

RUN the program. When the computer executes line 35 the 
STOP statement instructs it to stop executing the program. 
The computer displays: 
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Break in 35 
Ready 

I 

At this stage the computer should have stored 22.60 and 0.15 
in the memory cells labelled cost and VAT. rate. This can 
now be checked by instructing it to display the contents of 
these cells by typing: 

PRINT cost 

Press an ENTER key. The computer displays 22.60 followed by 
the usual Ready message. Now type: 

PRINT VftT.rats 

Press an ENTER key. The computer displays 0.15 followed by 
the usual Ready message. The results show that the program 
has functioned correctly up to line 35. 

The computer can be told to continue executing the program 
by typing: 

CONT 

Press an ENTER key. When the computer reaches line 85 it 
again stops executing the program. As before you can instruct 
it to display the contents of the memory cells labelled VAT and 
rea L . VAT. You will find that both of these are 0 which 
suggests that there is a fault at the line where they were set up, 
i.e. at lines 40 and 50. You would probably notice the error at 
this stage, correct it, remove the STOP statements and RUN 
the program. 


Solutions to the Tutorials 

10.1) a) 73.4 

b) 269.32 

c) 3.685 

10.2) PRINT *6/4 ='}6/4 

10.3) PRINT *48+81+93 »*;48+81+93 

10.4) PRINT ■245t73 »*j245*73 

10.5) PRINT *36-12 »*;36-12 



Sums with the Amstrad CPC 664 


103 


10.6) IB REH Attendance at a floHer ihoN 
20 daily.attendance « 625 

30 nuaber.of.days » 7 

40 total ■ daily.attendance * nuiber.ot.days 
SB PRINT total I'people attended the Tloeer shoe.' 

10.7) 10 REH Total hours of opening 
20 daily.hours • 3 

30 nuiber.of.days « 30 

40 total > daily.hours • nuaber.of.days 

50 PRINT 'The inforaation office is open for' 

60 PRINT total;'hours in June.' 

10.8) 10 REH Average nuaber of pupils per class 
20 boys * 262 

30 girls « 200 

40 total - boys * girls 

50 classes * 14 

60 average * total / classes 

70 PRINT 'There are';average;'pupils per class.' 

10.9) 10 REH Calculate the repayaents at zero interest rate 
20 capital « 200 

30 aonth - 9 

40 payaent * capital / aonth 
SB PRINT 'The aonthly payaent is' 

60 PRINT payaent;'pounds.' 

10.10) 10 REH Calculate VAT charge 
20 cost « 22.60 

30 VAT.rate « 15/100 
40 VAT * cost • VAT.rate 
50 real.VAT » R0UND(VAT,2) 

60 REH Clear the screen 
70 CIS 

80 LOCATE 3,12 

90 PRINT 'The VAT on £22.60 is';real.VAT;'pounds.' 

10.11) 10 REH Calculate the repayaents at 8.251 interest 
20 capital > 2000 

30 interest.rate - 8.25/100 
40 interest - capital * interest.rate 
50 total.repayaent > capital * interest 
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61 lonthly.repayitnt > total.repiyunt / 12 
71 real.aonthly.repayaent * R0UND(«)nthly.repayKnt,2) 

81 REH Clear the screen to blue 
9B CIS 

IBB REH Select bright yelloe background 
IIB PAPER 1 

12B REH Select bright red characters 

13B PEN 3 

14B LOCATE 2,12 

ISB PRINT 'The eonthly payeent is';real.aonthly.repayient;'pound 
s.' 

16B REH Hide the cursor 
17B PAPER B 
18B PEN B 


10.12) IB REH Cost of petrol 
2B cost.litre - 42.8 
3B nuaber.of.litres S 
4B cost * cost.litre • nuiber.of.litres / IBB 
SB real.cost > ROUND(cost,2) 

6B REH Clear the screen to blue 
7B CLS 

BB REH Select bright yellON characters 

9B PEN 1 

IBB LOCATE 2,IB 

llB PRINT 'The cost of five litres of petrol is' 

12B REH Select bright red characters 

i3B PEN 3 

14B LOCATE 13,12 

15B PRINT real.cost; 

16B REH Select bright yelloN characters 
17B PEN 1 

i8B PRINT 'pounds.' 

19B REH Hide the cursor 
2BB PEN B 
2iB PAPER B 


10.13) IB REH Calculate the repayeents at 8.2SZ interest 
2B capital >> 2BBB 
3B interest.rate - 8.2S/1BB 
4B interest « capital * interest.rate 
SB total.repayment ‘ capital + interest 
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61 lonthly.rtpayunt ■ total.ripayunt / 12 
71 rMl.ionthly.repayaent > R0UND(aonthly.rtpayitnt,2) 

SB REH Clear the screen to blue 
91 CIS 

IIB REH Select bright yelloN background 
111 PAPER 1 

121 REH Select bright red characters 

131 PEN 3 

14B LOCATE 2,12 

ISI PRINT 'The eonthly payMnt is '{rsal.aonthly.repayeent 
161 REH Display the £ sign 
171 LOCATE 27,12 
181 PRINT •£• 

191 REH Hide the cursor 
281 PAPER I 
211 PEN I 


10.14) 18 REN Sieulates tuo dice 
21 dicel > INT(RNDf6)M 
38 dice2 « INT(RNDt6)tl 
41 REH Select node I 
S8 NODE I 

61 REH Select bright white background 
71 PAPER 4 

61 REH Select black characters 

98 PEN S 

181 LOCATE 9,12 

111 PRINT dicel;dice2 

121 REH Hide the cursor 

131 PEN 8 

141 PAPER 8 



Chapter Eleven 


You speak to the 
computer 



In Chapter 10 you wrote the following program to calculate the 
fine on an overdue library book. 


18 REH Calculates the fine on an overdue book 

20 REH Fines are charged at 2p per day 

38 charge.per.day = 2 

48 days.overdue > 19 

S0 fine - days.overdue « charge.per.day 

60 PRINT 'The aaount to be paid is'jfine;'pence.* 


Every time an overdue book was returned the librarian 
would have to: 

1) List the program. 

2) Change line 40 to the appropriate value. 

3) Run the program to calculate the fine due. 

It would obviously be more convenient if the program could 
ask the librarian to enter the number of overdue days while it 
was running. This is done by means of the INPUT statement. 
This statement instructs the computer to cease executing the 
program temporarily and wait until information is entered at 
the keyboard. When the computer receives this information it 
continues with the program. The information entered at the 
keyboard can either be a number or a string. 


Use of the INPUT statement to enter a number 

Type (noticing the space between INPUT and number): 

INPUT nuiber 
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Press an ENTER key. The computer displays on the screen: 

? I 

and then waits for you to type (i.e. INPUT) a number. 

Type in 86 and you will see that it is also displayed on the 
screen. Press an ENTER key. This informs the computer that 
you have finished typing the number and that it can now 
continue. The number 86 is stored in the memory cell labelled 
number. The computer then displays the usual Ready 
message showing that it is waiting for another command. You 
can verify this by typing: 

PRINT nuiber 

Press an ENTER key. The computer now displays 86 on the 
screen. 

The INPUT statement can be used as part of a program as 
follows: 

IB REH Send a nuiber to the coiputer 
28 INPUT nuiber 

38 PRINT 'You typed in'jnuiber 

Enter and RUN the program. The computer waits at line 20 
until you type in a number (say 21) and press an ENTER key. It 
then proceeds to line 30 where it displays: 

You typed in 21 
Example 11a 

Write a program to INPUT the cost of a tin of beans and 
display: 

The cost of a tin of beans is .. pence. 

The program could be: 

18 REH Cost of beans 
28 INPUT price 

38 PRINT "The cost of a tin of beans is’jpricei'pence.' 


Tutorial 

11.1) Write a program to INPUT a number into a memory 
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cell labelled c h O i c e, clear the screen and display: 

Thi nuiber you picktd nh .. 

11.2) Write a program to INPUT the cost of a tin of beans 
into a memory cell labelled p r i c e, clear the screen and 
display: 

The cost of 3 tins of btans is ..pence. 

11.3) Write a program to INPUT the number of days in 
February into a memory cell labelled number, clear the 
screen and display: 

February has .. days this year. 

Let's rewrite the program to calculate the fine on an overdue 
library book, but this time include an INPUT statement at line 
40. 

IB REH Calculates the fine on an overdue book 

21 REH Fines are charged at 2p per day 

31 charge.per.day ■ 2 

4B INPUT days.overdue 

51 fine ■ days.overdue • charge.per.day 

&B PRINT 'The aiount to be paid is'|fine;'pence.' 

Enter and RUN the program. The computer prompts you to 
enter a number from the keyboard at line 40 by displaying on 
the screen: 

? I 

Unfortunately it gives you no information about the number it 
requires. This can be overcome by inserting a PRINT 
statement immediately before the INPUT statement. 

The program now becomes: 

IB REH Calculates the fine on an overdue book 
2B REH Fines are charged at 2p per day 
3B charge.per.day > 2 

35 PRINT'Hon aany days is the book overdue?' 

4B INPUT days.overdue 

5B fine - days.overdue t charge.per.day 

6B PRINT 'The aaount to be paid is‘;fine;'pence.' 


Add line 35 to your program and RUN it. The screen now 
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displays; 

Hom tany days is the book overdue? 

? I 

The computer now waits for you to type (i.e. INPUT) the 
number of days (say 5) and press an ENTER key. The 
computer now displays on the screen: 

The aiount to be paid is II pence. 

Example 11b 

Write a program that asks your age, clears the screen and 
displays: 

You are .. years old. 

The program could be: 

II REH This prograi asks your age 
21 PRINT *Nhat is your age?‘ 

31 INPUT age 

41 REH Clear the screen 

SI CIS 

61 PRINT 'You are'}agc|'years old.' 


Tutorial 

11.4) Write a program that asks how many people attended a 
car show, clears the screen and displays: 

.. people attended the car shoM. 

11.5) Write a program that asks how many litres of petrol at 
42.8 pence per litre you wish to purchase. It should then 
clear the screen in mode 1 and display at the centre of 
the screen in bright red on blue: 

You have asked for .. litres. 

The cost is £.. 

11.6) Expand Example 11b so that the screen displays: 

You are .. years old and in 12 years tiee you Hill be .. 
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Use of the INPUT statement to enter a string 

It is often necessary to INPUT a word or a phrase (e.g. your 
name or address) into a program. You will remember from 
Chapter 9 that words or phrases are strings and that the label 
given to the memory cell that stores a string must end with a $, 
e.g. name$, addressS. 

The INPUT statement for a string behaves the same as for a 
number. Type: 

INPUT naiet 

Press an ENTER key. The computer displays on the screen: 

? I 

and then waits for you to type (i.e. INPUT) a string. Type in 
your name (say John but do not put quotation marks around 
it). You will see that it is also displayed on the screen. Press an 
ENTER key. This informs the computer that you have finished 
typing the string and that it can now continue. 

The string "John" is stored in the memory cell labelled 
name$. The computer then displays the usual Ready 
message showing that it is waiting for another instruction. 
You can verify this by typing: 

PRINT nue* 

Press an ENTER key. The computer now displays on the 
screen: 

John 

The INPUT statement for a string can also be used in a 
program as demonstrated by the following example. 


Example 11c 

Write a program that asks your name and then displays on the 
screen: 

Hello ... I ai the Aestrad CPC 664. 

A possible program could be: 


IB REN Asks your naee 
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2B PRINT 'Nhat is your naie?‘ 

39 INPUT naiet 

41 PRINT 'Hello 'inaael;' I ai the Aastrad CPC 664.' 

Tutorial 

11.7) Write a program that asks which day of the week it is, 
clears the screen and displays: 

Today is ... 

11.8) Write a program that clears the screen, asks your 
favourite colour and then displays: 

Your favourite colour is ... 

11.9) Write a program that asks what you would like for 
lunch, clears the screen and displays: 

... is served. 

More than one INPUT statement can be used in a program 
as demonstrated in the following example. 


Example lid 

Write a program that clears the screen, asks your name and age 
and then displays: 

Hello ... You ire .. years old. 

A possible program could be: 

10 REH Asks your naie and age 
29 REH Clear the screen 
39 CIS 

49 PRINT 'Nhat is your naee?' 

59 INPUT naii$ 

69 PRINT 'Nhat is your age?' 

79 INPUT age 

89 PRINT 'Hello '|naael|'. You are'iage)'years old.' 

Tutorial 

11.10) Write a program to ask which grade of petrol you wish 
to buy followed by the number of litres you require. It 
should then display centred on the screen: 

You have selictid grade .. and have asked for .. litres. 
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11.11) Write a program to ask your name, town and tele¬ 
phone number. It should then display centred on the 
screen: 

Your nut it ... 

You livi in ... 

Your tiliphont nutbtr it ... 

11.12) Write a program to ask the day of the week, the date, 
the month and the year. It should then display centred 
on the screen: 

Today ii . 


Combining the PRINT and INPUT statements 

Let's look back at lines 40 and 50 of Example lid: 

4B PRINT 'Hhat ii your nut?* 

SI INPUT nutf 

These lines gave the following screen display: 

Nhat is your nate? 

? I 

The name typed in (say John) is displayed at the cursor so that 
the screen now displays: 

Nhat is your naie? 

? John I 

Lines 40 and 50 can be combined into one statement namely: 

41 INPUT 'Nhat is your naae?',naul 

This gives the following screen display: 

Nhat is your naae? I 

When the name John is typed it is displayed at the cursor so 
the screen now displays: 

Nhat is your naae?John I 

When an ENTER key is pressed the computer knows that you 
have finished typing the string and that it can continue. It 
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stores the string "John" in the memory cell labelled n a m e $ 
and then proceeds to the next line of the program. 

If you require a space between the ? and John on the screen 
display, line 40 should be: 

40 INPUT ’Hint ii your naw? '.nuef 

Notice the extra space between the ? and the 
In a similar way lines 60 and 70 of Example lid can be 
changed from: 

60 PRINT 'Hhit is your age?' 

70 INPUT age 

to 

60 INPUT 'Hhat is your age? ',age 

The program in Example lid would now be: 

10 REN Asks your naee and age 
20 REN Clear the screen 
30 CLS 

40 INPUT 'Nhat is your naee? ',naaet 

60 INPUT 'Hhat is your age? ',age 

70 PRINT 'Hello 'jnaielj'. You are'jage)'years old.' 

The LOCATE statement can be used with the INPUT 
statement allowing you to plan your screen displays. Assume 
that you wish to extend the above program so that the INPUT 
questions are displayed at screen positions 6,10 and 8.12. The 
computer should then clear the screen and display at screen 
position 1,10: 

Hello ... You are .. years old. 

The program would become: 

10 REH Asks your naee and age 
20 REH Clear the screen 
30 CLS 

40 REH INPUT the inforaation 
50 LOCATE 6,10 

60 INPUT 'Hhat is your naee? ',naee$ 

70 LOCATE 8,12 

80 INPUT 'Nhat is your age? ',age 
90 REH Clear the screen 



114 Introducing the Amstrad CPC 664 


IN CLS 

110 REH Displiy the inforeition 
120 LOCATE 1,10 

130 PRINT "Hello 'jnaeel;'. You are")age;"yean old." 

Tutorial 

11.13) Extend the library book program so that the PRINT 
and INPUT statements are combined. 

11.14) Write a program using a good screen display that 
combines the PRINT and INPUT statements in 
Tutorial 11.11 into one INPUT statement and then 
displays in mode 1: 

Your naae is .... 

You live in ... 

Your telephone nueber is ... 

These lines should be displayed in bright yellow, 
bright red and bright cyan respectively on a blue 
background. 


Solutions to the tutorials 

11.1) 10 REH Inputs a nueber 
20 INPUT choice 

30 REH Clear the screen 
40 CLS 

50 PRINT "The nueber you picked Nas';choice 

11.2) 10 REH Cost oT a tin ol beans 
20 INPUT price 

30 three.bean * 3* price 
40 REH Clear the screen 
50 CLS 

60 PRINT "The cost ol 3 tins of beans 
is';three.bean;'pence.' 

11.3) 10 REN Nueber of days in February 
20 INPUT nueber 

30 REH Clear the screen 
40 CLS 

50 PRINT "February has";nueber;"days this year." 
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11.4) la REH Nuabers attending a car shoe 

21 PRINT 'Hom eany people attended the car >ho« today?' 
38 INPUT attendance 
41 REH Clear the fcrnn 
Sa CIS 

68 PRINT attendance!'people attended the car ihoe.' 

11.5) 18 REH Purchase of petrol 
28 REH Select code 1 

38 HODE 1 

48 REH INPUT nueber of litres of petrol 

58 PRINT 'Hon eany litres of petrol at 42.B pence' 

68 PRINT 'per litre do you Nish to purchase?' 

78 INPUT quantity 
88 REH Clear the screen 
98 CIS 

188 REH Select bright red characters 
118 PEN 3 

128 REH Calculate and display the cost 

138 cost.per.litre ■ 42.6 

148 cost.pounds ■ cost.per.litre t quantity / 188 

158 real.cost ■ ROUNDicost.pounds,2) 

168 LOCATE 18,18 

178 PRINT 'You have asked for'iquantity;'litres.' 

188 LOCATE 11,12 

198 PRINT 'The cost is '!real.cost 
288 REH Insert the £ sign 
218 LOCATE 23,12 
228 PRINT '£' 

238 REH Hide the cursor 
248 PEN 8 

11.6) 18 REH This prograe asks your age 
28 PRINT 'Nhat is your age?' 

38 INPUT age 
48 later.age ■ age +12 
58 REH Clear the screen 
68 CLS 

78 PRINT 'You are'!age;'years old and in 12 years' 

88 PRINT 'tlee you Nill be'!later.age 
98 REH Hide the cursor 
188 PEN 8 
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11.7) 11 REN Day of tht wttk 

21 PRINT 'Hhich diy it it?' 

31 INPUT diyt 

41 REN Clear tht icrien 

51 CIS 

61 PRINT 'Today it '|day$ 

11.8) 18 REN Your favouritt colour 
21 REN Clear thi tcrein 

31 CL8 

48 PRINT 'Hhat it your favourite colour?' 

58 INPUT colour! 

68 PRINT 'Your favourite colour it ';colourl|'.' 

11.9) 18 REN Lunch aenu 

28 PRINT 'Nhat Mould you like for lunch?' 

38 INPUT food! 

48 REN Clear the icreen 
58 CLS 

68 PRINT food)i' it served.' 

11.10) 18 REN Purchase of petrol 

28 REN INPUT the inforeation 

38 PRINT 'Hhich grade of petrol do you Mith?' 

48 INPUT star 

58 PRINT 'Hon aany litres of petrol do you Nish' 
68 PRINT 'to purchase?' 

78 INPUT quantity 
88 REN Clear the screen 
98 CLS 

188 REN Display the inforeation 
118 LOCATE 6,8 

128 PRINT 'You have selected grade'istar 
138 LOCATE 5,18 

148 PRINT 'and have asked for';quantity|'litres.' 
158 REN Hide the cursor 
168 PEN 8 

11.11) 18 REN Address and telephone nueber 
28 REN INPUT the inforeation 

38 PRINT 'Nhat it your naee?' 

48 INPUT naeet 

58 PRINT 'Nhich tONn do you live in?' 
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61 INPUT toMnI 

71 PRINT 'Nhit ii your tolephont nuibir?' 

80 INPUT tflephonit 
90 REN Cliar tht icrtin 
101 CLS 

110 REH Diiplay thi intonation 
120 LOCATE 4,8 

130 PRINT 'Your nau ii 'jnaaft 
140 LOCATE 4,10 

150 PRINT 'You live in 'itoeni 
160 LOCATE 1,12 

170 PRINT ‘Your telephone nuaber if '{telephone* 
180 REH Hide the curtor 
190 PEN 0 


11.12) 10 REH Aikf the day and date 
20 REH INPUT the intonation 
30 PRINT 'Nhat day is it?' 

40 INPUT day! 

SO PRINT 'Nhat if the date?' 

60 INPUT date* 

70 PRINT 'Nhat aonth is it?' 

80 INPUT eonth* 

90 PRINT 'Nhat year is it?' 

100 INPUT year 

110 REH Clear the screen 

120 CLS 

130 REH Display the intonation 
140 LOCATE 1,12 

ISO PRINT 'Today is '{day*{' '{date*;' '{eonth*;year 
160 REH Hide the cursor 
170 PEN 0 

11.13) 10 REH Calculates the tine on an overdue book 
20 REH Fines are charged at 2p per day 

30 charge.per.day ■ 2 

40 REH INPUT the days overdue 

50 INPUT 'Hon aany days are the book overdue? ', 

days.overdue 

60 tine ■ days.overdue * charge.per.day 
70 REH Display the tine 

80 PRINT 'The aaount to be paid is'{tine{'pence.' 
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11 . 14 ) IB REH Address and telephone nuaber 
21 REH Clear the screen 
3fl CLS 

41 REH INPUT the intonation 
SB LOCATE 4,8 

AB INPUT 'Nhat is your naee? ',naee$ 

7B LOCATE 4,IB 

8B INPUT 'Nhich toun do you live in? ',tOHnl 
9B LOCATE 1,12 

IBB INPUT 'Nhat is your telephone nuaber? ',telephone$ 
IBB REH Clear the screen 
IIB CLS 

12B REH Display the inforaation 
13B LOCATE 4,8 

14B PRINT 'Your naae is ';nasel 
ISB REH Select bright red characters 
16B PEN 3 
178 LOCATE 4, IB 

18B PRINT 'You live in 'jtoant 
198 REH Select bright cyan characters 
2BB PEN 2 
21B LOCATE 1,12 

22B PRINT 'Your telephone nuaber is '|telephone$ 

23B REH Hide the cursor 
24B PEN B 
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Think about the following everyday situations. 

• IF it is sunny THEN we shall go to the beach ELSE we shall 
go to the zoo. 

• IF it is 10 o'clock THEN you must go to bed ELSE you may 
watch the television. 

• IF anyone rings the bell THEN go to the door ELSE continue 
reading your book. 

• IF the letter is addressed to you THEN open it ELSE leave it 
for me. 

Each of these situations involves a decision of the following 
type IF some condition is true THEN take the appropriate 
action ELSE take some other action. This is called an IF... 
THEN...ELSE statement and can be used to instruct the 
computer to make decisions similar to those above. 


Use of the IF. . .THEN. . .ELSE statement to 
compare numbers 

Assume that you wish to instruct the computer to make the 
following decision: if the contents of the memory cells labelled 
fi rst.number and second.number are equal then 
display on the screen: 

The contents of the two leiory cells are equal, 
otherwise display on the screen: 

The contents of the tuo leaory cells are ... and ... 

The BASIC statement for this decision could be: 
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IF first.nuiber - second.nuiber THEN PRINT 'The contents 
of the tMO eeiory cells are equal.' ELSE PRINT 'The 
contents of the two aeaory cells are'|first.nuiber;'and') 
second.nuiber 

This statement can be included in a program as follows; 

10 first.nuiber - 4 
20 second.nuiber » 4 

30 IF first.nuiber * second.nuiber THEN PRINT 'The 
contents of the two leiory cells are equal.' ELSE PRINT 
'The contents of the tio leiory cells are';first.nuiber; 

'and';second.nuiber 

Enter the program noticing the space after the I F and the 
spaces on both sides of THEN and ELSE. RUN the program. 
When the computer executes line 30 it finds that the condition 
is true as the contents of the two memory cells are equal. Hence 
it displays on the screen: 

The contents of the tio leiory cells are equal. 

Change line 10 to: 

10 first.nuiber - 7 

RUN the program again. When the computer executes line 30 it 
finds that the condition is not true as the contents of the two 
memory cells are not equal. Hence it displays on the screen: 

The contents of the tio leiory cells are 7 and 4 


Example 12a 

Write a program to INPUT two numbers and test if they are 
equal. 

A possible program could be: 

10 REN Deionstration of the IF...THEN...ELSE stateient 
20 INPUT 'Type a nuiber ',first.nuiber 
30 INPUT 'Type another nuiber ',second.nuiber 
40 IF first.nuiber « second.nuiber THEN PRINT 'The two 
nuibers are equal.' ELSE PRINT 'The nuibers you typed 
Here';first.nuiber;'and';second.nuiber 


Enter and RUN the program. Input the number 10 for both the 
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first and the second numbers. The computer displays on the 
screen: 

The tNO nuibers are equal. 

RUN the program again but this time INPUT the number 3 
for the first number and 5 for the second. The computer now 
displays on the screen: 

The nuebert you typed Mere 3 and 5 
Tutorial 

12.1) Write a program to INPUT a number and test if it is 
equal to 7. Depending on the result of the test the 
computer should display on the screen: 

You entered the correct nuiber. 

or 

You entered the urong nuiber. 

12.2) Write a program to generate a random number between 
1 and 10. It should ask you to guess this number and 
then tell you whether or not your guess is correct. 

12.3) Write a program to generate and display a random 
number between 1 and 10. It should then ask you to 
INPUT two numbers which add up to this number and 
tell you whether or not you are correct. 

The computer can also test the conditions in Table 12.1. 


Condition 

BASIC symbol 

equal to 

= 

not equal to 

<> 

greater than 

> 

less than 

< 

less than or 


equal to 

<= or => 

greater than or 


equal to 

>= or => 


Table 12.7 
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Remember that the less than < and greater than > signs are 

the SHIFT , and SHIFT . keys. 


Example 12b 

Write a program that asks you to INPUT two different 
numbers and then displays: 

is greater than .... 

The program could be: 

10 REH Coaparison of teo nuabers 

20 INPUT 'Type a nuaber ',first.nuaber 

30 INPUT 'Type a different nuaber ',second.nuaber 

40 IF first.nuaber > second.nuaber THEN 

PRINT first.nuaber;'is greater than';sacond.nuaber ELSE 

PRINT second.nuaberj'is greater than'jfirst.nuaber 

Enter and RUN the program. If you INPUT the numbers 7 and 
12 when requested, the computer will display on the screen: 

12 is greater than 7 

RUN the program again but this time INPUT the numbers 10 
and 5. The computer displays: 

10 is greater than 5 


Tutorial 

12.4) Repeat Example 12b but this time the computer should 
display: 

... is less than ... 

1 

12.5) Write a program that generates a random number 
between 1 and 5 and displays whether pr not it is less 
than or equal to 3. 


Use of the IF - . - THEN. . - ELSE statement to 
compare strings 


When the computer compares two strings it can only test 
whether or not they are equal. For the strings to be equal they 



Decision making 123 


must be identical. 


Tutorial 


12.6) State whether or not the following pairs of strings are 
equal: 


"Hawthorn Avenue" 
"Fletcher Grove" 
"Amstrad computer" 
"dog" 

"John" 

"Come here." 


"Hawthorn Avenue" 
"Fletcher Avenue" 
"Amstrad computer" 
"dog " 

"John" 

"Come here" 


The IF...THEN...ELSE statement for comparing 
strings is the same as for comparing numbers as shown in the 
following example: 


Example 12c 

Write a program which asks you to INPUT the password to 
enter a top security room. The computer should then display 
ENTER or NO ENTRY as appropriate. 

A possible program could be: 

10 REH Coiparison of passNords 
20 passHord$s'Fido' 

30 INPUT 'Nhat is the passMord? ',ansMer$ 

40 IF ansNerl > passNordt THEN PRINT 'ENTER' ELSE PRINT 'NO 
ENTRY' 

At line 40 the computer compares the contents of the string 
variables passwords and answerS.It displays ENTER or 
NO ENTRY depending on whether or not they are identical. 


Tutorial 

12.7) Write a program that asks you to guess a letter. The 
computer should then display either: 

Correct. 

or 

Nrong. 
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12.8) Write a program that asks you to INPUT the capital .of 
Norway. The computer should then display either: 

Correct. 

or 

The capital of Noreay is Oslo. 


The E L S E is not essential 

So far all the decisions have involved statements of the form: 
IF...THEN...ELSE. However some decisions do not 
require an ELSE. Consider the decisions: 

• IF your hands are dirty THEN wash them. 

• IF it rains THEN put up your umbrella. 

• IF the grass is too long THEN cut it. 

Each of these situations involve decisions of the following 
type: IF some condition is true THEN take the appropriate 
action. This is called an IF...THEN statement and can be 
used to instruct the computer to make decisions similar to 
those above. As before the computer can compare either two 
numbers or two strings as shown in the following example: 

Example 12d 

Change the program of Tutorial 12.2 so that the computer 
displays whether your guess is too high, too low or correct. 

A possible program could be: 

18 REH Guess the nueber betMeen 1 and 18 

28 REH Vary the sequence of randoa nuibers 

38 RANDOHIZE TIHE 

48 REH Create the randoe nueber 

58 nueber = 1NT(RND*18)M 

68 REH Clear the screen 

78 CLS 

88 REH Ask for the person's guess 
98 LOCATE 2,18 

188 INPUT 'Please guess the nueber 1 to 18 guess 
118 REH Test if the guess is too high, too Iom or correct 
128 IF nueber a guess THEN PRINT 'You guessed correctly.' 
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131 IF nutber < guess THEN PRINT "Your guess was too high.' 

140 IF nuaber > guess THEN PRINT 'Your guess was too Iom.' 

At line 120 the computer compares the contents of the memory 

cells labelled number and guess. If they are not equal it 

starts to execute line 130 immediately. If they are equal it 

displays: 

You guessed correctly. 

and then proceeds to execute line 130. 

Tutorial 

12.9) Explain the action of the computer when it executes 
lines 130 and 140 in the program of Example 12d. 

12.10) Extend the library book program of Tutorial 11.13 so 
that there is a minimum fine of 6 pence and a maximum 
fine of 26 pence. 

12.11) Write a simple calculator program that, using a good 
screen display, asks you to enter two numbers followed 
by a H— * or / to indicate whether the numbers have to 
be added, subtracted, multiplied or divided. It should 
then display the appropriate answer. 


Solutions to the tutorials 

12.1) 18 REN Tutorial 12.1 
20 REH INPUT a nuaber 

30 INPUT 'Enter a nueber ',nueber 

40 IF nueber * 7 THEN PRINT 'You entered the correct nueber.' 
ELSE PRINT 'You entered the wrong nueber.' 

12.2) 10 REH Guess the nueber 

28 REH Generate a randoe nueber froe 1 to 10 

38 RANDOHIZE TIHE 

40 randoe.nueber = INT(RNDtl0)+l 

50 INPUT 'Guess the nueber froe 1 to 10 ',guess 

&0 IF guess ° randoe.nueber THEN PRINT 'You guessed the correct 

nueber.' ELSE PRINT 'You guessed the wrong nueber.' 
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12.3) IB REH Addition test 

20 REH Generate a randoa nueber froe 1 to 18 

38 RANDOHIZE TIHE 

48 randoa. nuiber » INT(RND*lB)'i'l 

SB PRINT 'Enter two nuabers that add to'jrandoa.nuaber 

68 INPUT 'First nuaber « ',first.nuaber 

78 INPUT 'Second nuaber * ',second.nuaber 

80 total - First.nuaber * second.nuaber 

90 IF total > randoa.nuaber THEN PRINT 'Correct' ELSE PRINT 

'Nrong' 

12.4) 10 REH Coaparison of two nuabers 

20 INPUT 'Type a nuaber ',first.nueber 

30 INPUT 'Type a different nuaber ',second.nuaber 

40 IF first.nuaber < second.nuaber THEN 

PRINT first.nuaber;'is less than';second.nuaber ELSE PRINT 

second.nuaber;'is less than';first.nuaber 

12.5) 18 REH Tutorial 12.5 

20 REH Clear the screen 
38 CLS 

40 REH Generate a randoa nuaber betaeen 1 and 5 
58 RANDOHIZE TIHE 
60 randoa.nuaber > INTIRNOtS)')'! 

70 IF randoa.nuaber <s 3 THEN PRINT 'Randoa nuaber less 
than or equal to 3.' ELSE PRINT 'Randoa nuaber greater 
than 3.' 

12.6) The string "Hawthorn Avenue" is equal to the 
string "Hawthorn Avenue". 

The string "Fletcher Grove" is not equal to the 
string "Fletcher Avenue". 

The string "Amstrad computer" is not equal to 
the string "Amstrad computer" as the second 
one has an extra space between the words. 

The string "dog" is not equal to the string "dog " 
as the second one has a space after the g of dog. 

The string "John" is not equal to the string "John" 
as the first one starts with a capital letter. 

The string "Come here." is not equal to the string 
"Come here" as the first one ends in a full stop. 
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12.7) le REH Buess the letter 

20 REH Correct letter is c 
30 letter* » 'c' 

40 INPUT 'Buess a letter guess* 

50 IF guess* * letter* THEN PRINT 'Correct.' ELSE PRINT 'Nrong.' 


12.8) 10 REH Capital oT Noreay 

20 INPUT 'Hhat is the capital of Noreay ',capital* 

30 IF capital* = 'Oslo' THEN PRINT 'Correct.' ELSE PRINT 'The 
capital of Norway is Oslo.' 

12.9) At line 130 the computer tests if the content of the 
memory cell labelled number is less than that of the 
memory cell labelled guess. If it is less it displays: 

Your guess was too high. 

and then proceeds to execute line 140. Otherwise it 
executes line 140 immediately. At line 140 the computer 
tests if the content of the memory cell labelled number 
is greater than that of the memory cell labelled guess. 
If it is greater it displays: 

Your guess was too Ion. 

The program then displays the usual Ready message. 
Otherwise it displays the usual Ready message im¬ 
mediately. 

12.10) 10 REH Calculates the fine on an overdue book 
20 REH Fines are charged at 2p per day 

30 charge.per.day » 2 

40 REH INPUT the days overdue 

50 INPUT 'Hon aany days are the book overdue? ', 

days.overdue 

60 fine > days.overdue * charge.per.day 

70 REN Non lake liniaui fine 6p and aaxiaui fine 26p 

60 IF fine < 6 THEN fine * 6 

90 IF fine > 26 THEN fine - 26 

100 REH Display the fine 

110 PRINT 'The aiount to be paid is'jfine;'pence.' 

12.11) 10 REH Calculator prograa 
20 REH Clear the screen 
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31 CLS 

41 REH INPUT the inforution 
SB LOCATE 11,8 

61 INPUT 'First nuiber ■ First.nuiber 
78 LOCATE 18,11 

88 INPUT 'Second nuiber « ',second.nuiber 
98 REN Decide on type oF sui 
188 LOCATE 2,12 

118 INPUT 'Enter + - / i For thi type oF sue ',type$ 
128 REH Clear the screen 
138 CLS 

148 REH Display the result 
158 LOCATE 18,12 

168 IF types * 'i* THEN PRINT First.nuiber; 
second.nuiber;'s';First.nuiber * second.nuiber 
178 IF type! » '-' THEN PRINT First.nuiber;'-'; 
second.nuiber;'«';First.nuiber - second.nuiber 
188 IF type! » '/' THEN PRINT First.nuiber;'/■; 
second.nuiber;'«';First.nuiber / second.nuiber 
198 IF type! » '*' THEN PRINT First.nuiber; 
second.nuiber;'>';First.nuiber * second.nuiber 
288 REN Hide the cursor 
218 PEN 8 
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Again and again 


Loops 

Look back at the program for Tutorial 11.13 where the fine for 
an overdue library book was calculated. It has the disadvan¬ 
tage that each time an overdue book was returned the librarian 
would have to RUN the program. It would save time in a busy 
library if the program ran continuously and the librarian only 
had to enter the number of overdue days. This would occur if 
the computer after executing line 80 automatically went back to 
line 40 so that it executed the lines in the following order: 10 20 
30 40 50 60 70 80 40 50 60 70 80 40 50 60 70 80 40, etc. 

As lines 40 to 80 would constantly be repeated they could be 
said to form a loop. A loop can be created using the 
WHILE. . .WEND statement. 



The WHILE. . . W E N D statement 

The W H I L E is used to mark the start of the loop and the WEND 
the end of it. The WHILE is followed by a condition. The 
computer executes the loop if this condition is true and 
escapes from it if the condition is false. The library book 
program would have the following structure: 

le 

20 

30 

34 REH Create a WHILE...HEND loop froi Nhich the coaputer cannot 
escape 

35 dueey.test - 0 

36 WHILE dueey.test > 0 
40 

50 


129 
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bt 

70 

80 

90 HEND 

The WHILE at line 36 and the WEND at line 90 mark the 
beginning and the end of the loop which contains the lines 40, 
50, 60, 70, and 80 as required. 

If the condition: 

duuy.test « 0 

is true then the computer executes the loop. 

Line 35 stores the number zero in the memory cell labelled 
dummy.test. Hence at line 36 the condition: 

duuy.test < 0 

is true and the loop is executed. The WEND statement at line 90 
instructs the computer to go back to line 36 where the 
condition is again tested. As the contents of the memory cell 
labelled dummy, test have not been altered the condition is 
still true and the loop is executed again. In this way the loop is 
repeated indefinitely. 

The complete program becomes: 

18 REN Calculates the fine on an overdue library book 
28 REN Fines are charged at 2p per day 
38 charge.per.day ° 2 

34 REN Create a WHILE...HEND loop froa ehich the coiputer cannot 
escape 

35 dueay.test ^ 8 

36 WHILE duuy.test « 8 

48 REN INPUT the days overdue 
58 INPUT 'Hoh aany days is the book overdue? 
days.overdue 

68 fine « days.overdue • charge.per.day 
78 REN Display the fine 

88 PRINT 'The aeount to be paid is';finc;'pence.* 

98 WEND 


The statements within the WHILE. . .WEND loop have been 
indented two spaces as this makes the program easier to read. 

Enter and RUN the program noticing the space between the 
WHILE and dummy, test at line 36. Each time the compu- 
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ter executes the loop it asks you, at line 50, to INPUT the 
number of days the book is overdue and then at line 80 
displays the fine on the screen. As the program is in an endless 
loop it can only be stopped by using the escape key which is 
the blue key labelled ESC. Stop the program by pressing the 
escape key twice. The computer will display: 

Break in .. 

Ready 

I 


The display: 

Break in .. 

indicates the line that the computer was executing when the 
program, was stopped. The program is still stored in the 
computer's memory. 


Example 13a 

Extend the program of Tutorial 12.2 so that it constantly asks 
you to guess another number. 

The program of Tutorial 12.2 would constantly ask you to 
guess another number if the following lines were added: 

34 REH Crtate a WHILE...MEND loop froi Mhich the coaputcr cannot 
escape 

35 dueey.test ■ B 

36 WHILE dueey.test « I 
70 WEND 


Tutorial 

13.1) Write an autobank program that constantly asks you 
how much money you wish to withdraw and then 
displays: 

You Mish to Nithdrae .... pounds. 

13.2) Change the die program of Example lOe so that it 
displays another throw of the die whenever you press 
an ENTER key. 
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Counting the number of times the computer has 
executed the loop 

Let's extend the above library book program so that it also 
indicates the number of overdue books that have been 
returned. The number of books will be the same as the number 
of times the computer has executed the loop. This number will 
be stored in a memory cell labelled counter. The contents of 
this memory cell can be increased by the statement: 

counter ■ counter * 1 

This instructs the computer to add one to the contents of the 
memory cell labelled counter and then store the result in 
the same memory cell. Hence if the number 5 was stored in the 
memory cell labelled counter then the instruction: 

countfr - counter * 1 

would increase this number to 6. 

The library book program would become: 

10 REH Calculates the fine on an overdue library book 
21 REH Fines are charged at 2p per day 
30 charge.per.day * 2 

32 REH The eeeory ceil labelled coutter stores the nueber of 
overdue books that have been returned 

33 counter ■ 0 

34 REH Create a liHILE...HEND loop froa nhich the coiputer cannot 
escape 

35 duaey.test * 0 

36 NHILE duaey.test ■ 0 

40 REH INPUT the days overdue 
50 INPUT 'Hon aany days is the book overdue? 
days.overdue 

60 fine ■ days.overdue a charge.per.day 
70 REH Display the fine 

80 PRINT 'The aaount to be paid is'jfine;'pence.' 

84 REH Increase the overdue book count by one 

85 counter « counter * 1 

86 PRINT counter;'overdue books have been returned.' 

90 HEND 


The computer enters the loop from lines 36 to 90 with the 
contents of the memory cell labelled counter equal to zero. 
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Every time the computer goes round the loop the contents of 
this memory cell will be increased by one at line 85 and 
displayed on the screen at line 86. 


Tutorial 

13.3) Change the program of Example 13a so that the 
computer displays the number of times that you 
guessed correctly and the total number of guesses. 

13.4) Change the program of Tutorial 13.2 so that the 
computer also displays the number of times the die has 
been rolled. 

How to get out of a loop 

In the previous examples the computer is trapped in the loop 
and can never escape. In some cases, e.g. the library book 
program, this would not matter as you would want the 
program to RUN continuously until you switched off in the 
evening. Sometimes however you may wish the computer to 
go round the loop a given number of times and then escape 
from it. 

Assume that you wished to modify the program of Tutorial 
13.3 so that the computer escaped from the loop after 10 
guesses and then displayed the number correct. 

Consider the program: 

10 REH Guess the nuiber 
20 REN Vary the randoi nuiber sequence 
30 RANDOHIZE TINE 

40 REN The leiory cell labelled total.Ruibrr stores the nuiber 
of guesses 

50 REN Thi iciory cell labelled euiber.correct stores the 
nuiber of correct guesses 
bt total.nuiber - 0 
70 nuiber.correct » 0 
80 HHILE total.nuiber < 10 
90 REN Generate a randoi nuiber froi 1 to 10 
100 randoi.nuiber ^ INT(RND*10)*1 
110 INPUT 'Guess the nuiber guess 
120 IF guess > randoi.nuiber THEN PRINT 'You guessed the 
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correct nuiber.' ELSE PRINT 'You gueiied the erong 
nueber.' 

130 IF guess ^ randoi.nueber THEN nueber.correct ■ 
nueber.correct * 1 

140 total.nueber * total.nueber * 1 
150 NEND 

160 PRINT 'You have had'jnueber.correct;'correct guesses' 

170 PRINT 'out of'itotal.nueber 

The WHILE at line 80 and the WEND at line 150 mark the 
beginning and the end of the loop. If the condition: 

total.nueber < 10 

is true then the computer executes the loop. 

The computer enters the loop with the content of the 
memory cell labelled tota L .number equal to zero. Each 
time the computer executes the loop the content of this 
memory is increased by one. This is repeated until the tenth 
execution of the loop when the content of this memory cell is 
increased to 10. This time when the computer goes back to line 
80 the condition is found to be false and therefore the 
computer escapes from the loop by jumping to line 160 which 
is the first line after the WEND statement. 


Example 13b 

Modify the program of Example 12d so that you are given three 
attempts to guess the number. 

A possible program could be: 

10 REN Guess the nuiber between 1 and 10 

20 REN Vary the randoi nuiber sequence 

30 RANDOHIZE TINE 

40 REN Create the randoi nuiber 

50 nuiber * INTIRND«10)+1 

60 REN Clear the screen 

70 CLS 

80 REN Give the person three guesses 
90 REN The leiory cell labelled guesses.left stores the nuiber 
of guesses the person has left 
100 guesses.left - 3 

110 REN If the leiory cell labelled repeit.Icopt contains 'NO' 
then escape froi the loop 

120 REN If the leiory cell labelled repeet.loopt contains 'YE8' 
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then execute the loop 
130 repeat.loopi - 'YES* 

140 MHILE repeat.loopi * 'YES' 

150 REH Ask for the person's guess . 

1&0 INPUT 'Please guess the nuiber 1 to 10 ',guess 
170 REH Test if the guess is too high, too Ion or 
correct 

180 IF guess » nuiber THEN PRINT 'You guessed 
correctly.' 

190 IF guess < nuiber THEN PRINT 'Your guess Nas too 
lOH.' 

200 IF guess > nuiber THEN PRINT 'Your guess uas too 
high.' 

210 REH Update the nuiber of guesses left 
and repe»t.Ioop$ 

220 guesses.left « guesses.left - 1 

230 IF guesses.left > 0 THEN repeat.loop! - 'NO' 

240 IF guess » nuiber THEN repeat.loop$ = 'NO' 

250 NEND 

260 IF guess <> nuiber THEN PRINT 'The nuiber uas';nuiber 

Why should you always win if you are given four guesses? 


Tutorial 

13.5) Modify the program of Example 12c so that you have 
two attempts to enter the password. 

13.6) Modify the program of Tutorial 13.1 so that you enter 
your wage. Each time you withdraw money the prog¬ 
ram tells you how much is left but will not let you be 
overdrawn. 

13.7) Write a program to calculate the twelve monthly 
repayments on loans of £100, £200, £300 and £400 at an 
interest rate of 8% per annum payable on the total sum 
borrowed. 


Loops within loops 

It is possible to have a loop which is entirely contained within 
another loop. In this case the loops are said to be nested. Let's 
assume that the program of Tutorial 13.7 has to be extended so 
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that it displays the repayments on the capital sums for interest 
rates of 8%, 9% and 10%. 

In Tutorial 13.7 the interest rate was fixed at 8%. A 
WHILE. . .WEND loop could be used to make the interest 
rate 8%, 9% or 10% as required. The program would then have 
the structure; 

10 REH Honthly repayients on a loan 
20 percentage.interest - 8 
30 HHILE percentage.interest <■ 10 
40 REH Clear the screen 
50 CIS 

bt interest.rate = percentage.interest / 100 

70 

. Insert lines 30 to 130 of the prograi 
. for tutorial 13.7 

t 

170 

180 REH Change the percentage interest for the 
next loop 

190 percentage.interest - percentage.interest * 1 
200 REH Wait until an ENTER key is pressed 
210 INPUT "Press an ENTER key.',al 
220 HEND 


The WHILE. . .WEND loop from lines 30 to 220 would 
make the computer execute the program of Tutorial 13.7 three 
times with interest rates of 8%, 9% and 10%. The complete 
program would be: 

10 REH Honthly repayeents on a capital sui 
20 percentage.interest * 8 
30 NHILE percentage.interest <- 10 
40 REH Clear the screen 
50 CIS 

60 interest.rate > percentage.interest / 100 
70 loan > 100 
80 NHILE loan <> 400 
90 interest » loan * interest.rate 
100 total.repayient > interest * loan 

110 eonthly.repayeent - total.repayeent / 12 

120 real.eonthly.repayeent ^ 
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ROUND (lonthl y. repayunt ,2) 

138 PRINT 'lonthiy repayunt on a';loan;'pound loan* 
148 PRINT 'at'iptrcentage.interest;'per cent is'; 

real.aonthly.repayeent;'pounds.' 

158 REN Change the loan for the next loop 
168 loan - loan * 188 
178 NEND 

188 REN Change the percentage interest for the next loop 
198 percentage.interest ■ percentage.interest * 1 
288 REN Hait until an ENTER key is pressed 
218 INPUT 'Press an ENTER key.',a$ 

228 MEND 


Example 13c 

Write a program to display the multiplication tables. 
A possible program could be: 

18 REN Multiplication tables 
28 table « 1 
38 HHILE table <> 18 
48 nueber ■ 1 
58 NHILE nueber <» 18 
68 product ■ nueber * table 

78 hiNT nuBber;'*';table;'>';product 

88 REN Increase luiber for the next loop 
98 nueber * nueber * 1 

188 NEND 

118 REN Increase table for the next loop 
128 table * table M 
138 REN Press an ENTER key to continue 
148 INPUT 'Press an ENTER key.'.al 
158 NEND 


Tutorial 

13.8) Modify the program of Example 13b so that the 
computer continually gives you three attempts to guess 
a number. 
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Solutions to the tutorials 

13.1) IB REH Auto bank prograi 
21 REH Cliar the ecreen 
3B CLS 

40 REH Create a MHILE...NEND loop froi Nhich the coeputer 
cannot eecape 
51 duiey.tett > B 
6 B WHILE duaey.teit ■ B 
7B REH INPUT the aeount to be Mithdraen 
8 B INPUT 'Hon auch do you Niih to Nithdrau? *,caih 
90 REH Display aeount to be Nithdraen 
100 PRINT 'You Nish to NithdraN';cash;'pounds.' 

110 WEND 

13.2) 10 REH Prograe to siiulate a die 

20 REH Vary the randoe nuaber sequence 
30 RANDOHIZE TIHE 

40 REH Create a WHILE...NEND loop Troa uhich the coaputer 
cannot escape 
SB duaay.test > 0 
&B WHILE duaay.test * 0 
70 CLS 

SB randoa.nuaber ^ INT(RNDt6)+l 
90 LOCATE 12,10 

100 PRINT 'The die shous*;randoa.nuaber 
110 REH Wait until an ENTER key is pressed 
120 LOCATE 1,12 

130 INPUT 'Press ENTER for the next roll of die ',a$ 

140 NEND 


As line 130 is an INPUT statement the computer will wait 
until you press an ENTER key. 

13.3) 10 REH Suess the nuaber 

20 REH Vary the randoa nuaber sequence 
30 RANDOHIZE TIHE 

40 REH The aeaory cell labelled total.auaber stores the nuaber 
of guesses 

50 REH The aeaory cell labelled lutber,correct stores the 
nuaber of correct guesses 
60 total.nuaber - 0 
70 nuaber.correct - 0 
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88 REH Create a WHILE...HEND loop frdi Nhich the coaputer 
cannot escape 
98 duaey.test ■ 8 
188 WHILE duaey.test > 8 
118 REN Senerate a randoa nuaber troa 1 to 18 
128 randoa.nuaber - INT(RND*18)'^1 
138 INPUT 'Guess the nuaber guess 
148 IF guess - randoa.nuaber THEN PRINT 'You guessed the 
correct nuaber.' ELSE PRINT 'You guessed the 
Hrong nuaber.' 

158 IF guess - randoa.nuaber THEN nuaber.correct ■ 
nuaber.correct * 1 

168 total.nuaber « total.nuaber 1 
178 PRINT 'You have had'jnuaber.correct;'correct 
guesses' 

188 PRINT 'out oF';total.nuaber 
198 WEND 


13.4) 18 REN Prograa to siaulate a die 

28 REN Vary the sequence of randoa nuabers 
38 RANDONIZE TINE 

48 REN The aeaory cell labelled tuiber.of.throns stores the 
nuaber of tiaes the die has been throan 
58 nuaber.of.throws = 8 

68 REN Create a WHILE...WEND loop froa which the coaputer 
cannot escape 
78 duaay.test = 8 
88 WHILE duaay.test « 8 
98 REN Clear the screen 
188 CLS 

118 randoa.nuaber > INT(RNDt6Ul 
128 LOCATE 12,18 

138 PRINT 'The die shows';randoa.nuaber 
148 REN Update nuaber of throws and display it 
158 nuaber.of.throws > nuaber.of.throws * 1 

168 LOCATE 7,12 

178 PRINT 'The die has been rolled';nuaber.of.throws; 
'tiaes.' 

188 REN Wait until an ENTER key is pressed 
198 LOCATE 1,14 

288 INPUT 'Press ENTER for the next roll of die',a$ 

218 WEND 
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13.5) II REH Coiparison of passMordf 
21 REH Clear the screen 
31 CIS 

41 passHordI ■ 'Fido* 

SI REH If the leaory cell labelled riptit.leapt contains 'NO* 
then escape froe the loop 

61 REH If the leeory cell labelled reput.leapt contains 'YES' 
then execute the loop 
71 repeat.loopt * 'YES' 

81 REH The aeiory cell labelled tries.left stores the nuiber of 
reeaining atteapts to enter the password 
91 tries.left * 2 
111 MHILE repeat.loopi « 'YES' 

111 REH INPUT the password 

121 INPUT 'Nhat is the password? '.answert 

131 IF answerl * password! THEN repeat.loopt ■ 'NO' 

141 tries.left > tries.left - 1 

151 IF tries.left > I THEN repeat.loopt * 'NO' 

161 NEND 

171 IF answer! > password! THEN PRINT 'ENTER' ELSE 
PRINT 'NO ENTRY' 


13.6) 18 REN Auto bank prograi 
21 REH Clear the screen 
31 CLS 

41 REH INPUT your wage 
SI INPUT 'Nhat is your wage? ',wage 
61 REH Your current balance is stored in the eeiory cell 
labelled loaty 
71 aoney ‘ wage 

81 REH No aoney left is indicated by the aeaory cell labelled 
repeet.leapt containing 'NO' 

91 REH Nhile there is aoney left the aeaory cell labelled 
repeet.leapt contains 'YES' 

111 repeat.loop! « 'YES' 

HI NHILE repeat.loop! = 'YES' 

121 REH INPUT the aaount to be withdrawn 

131 INPUT 'How auch do you wish to withdraw? ',cash 

141 REH Display aaount to be withdrawn 

151 PRINT 'You wish to withdraw';cash;'pounds.' 

168 REH The aeaory cell labelled teeey.left stores the 
aaount of aoney you would have after this 
transaction 
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171 loney.left > loney - cash 

188 REH Test it still in the black 

198 IF eoney.lett = 8 THEN repeat.loopt - 'NO' 

288 IF ioney.left > 8 THEN PRINT 'You have';aoney.left; 

'pounds in the bank.' 

218 IF eoney.lett < 8 THEN PRINT 'You do not have 
enough loney.' ELSE eoney = eoney.left 
228 NEND 

238 PRINT 'You have no eoney left noM.' 


13.7) 18 REH Honthly repayaents on a loan 
28 interest.rate >8/188 
38 loan > 188 
48 NHILE loan <> 488 
58 interest > loan • interest.rate 
68 total.repayeent * interest * loan 
78 eonthly.repayeent > total.repayeent / 12 
88 real.eonthly.repayeent > ROUNDIeonthly.repayeent,2> 
98 PRINT 'eonthly repayeent on';loan;'pound loan is' 
188 PRINT real.eonthly.repayaent;'pounds.' 

118 REN Change loan Tor the next loop 
128 loan = loan * 188 
138 NEND 


13.8) 18 REH Guess the nueber beteeen 1 and 18 
28 REH Vary the randoe nueber sequence 
38 RANDOHIZE TINE 

48 REH Create a NHILE...NEND loop Troe Nhich the coeputer 
cannot escape 
58 dueey.test > 8 
68 NHILE dueey.test > 8 
78 REH Create the randoe nueber 
88 nueber > INTIRNDfl 8 )H 

90 REH Give the person three guesses 

100 REN The eeeory cell labelled guesses.left stores the 
nueber of guesses the person has left 
118 guesses.left = 3 

128 REH If the eeeory cell labelled repeet,loopt 
contains 'NO' then escape fros the loop 
130 REH If the eeeory cell labelled repeit.loopt 
contains 'YES' then execute the loop 
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14B repeat.loopi - 'YES' 

ISB WHILE repeat.loop$ « 'YES' 

16B REH Afk for the person'! guess 
17B INPUT 'Please guess the nueber 1 to IB ',guess 

IBB REH Test if the guess is too high, too Ion 

or correct 

t9B IF guess ■ nueber THEN PRINT 'You guessed 
correctly.' 

2BB IF guess < nueber THEN PRINT 'Your guess was too 
lOH.' 

21B IF guess > nueber THEN PRINT 'Your guess eas too 
high.' 

22B REH Update the nueber of guesses left 
and rtftit.loopi 

23B guesses.left > guesses.left - 1 

24B IF guesses.left ■ B THEN repeat.loopt « 'NO' 

2SB IF guess = nueber THEN repeat.loopt « 'NO' 

2&B WEND 

27B IF guess <> nueber THEN PRINT 'The nueber 
Mas'; nueber 
2BB WEND 



Chapter Fourteen 


Making use of the 
Amstrad CPC 664’s 
clock 


Enter, renumber and RUN the overdue library book program 
of Chapter 13. 

10 REH Calculates the fine on an overdue library book 
20 REH Fines are charged at 2p per day 
30 charge.per.day ■ 2 

40 REH The leiory cell labelled coutttr stores the nusber of 
overdue library books that have been returned 
50 counter - 0 

60 REH Create a WHILE...MEND loop froi Mhich the coeputer 
cannot escape 
70 duiiy.test = 0 
80 WHILE duuy.test - 0 
90 REH INPUT the days overdue 
100 INPUT “How lany days is the book overdue? 
days.overdue 

110 fine * days.overdue • charge.per.day 
120 REH Display the fine 

130 PRINT “The aeount to be paid is';fine;’pence.' 

140 REH Increase the overdue book count by one 
150 counter * counter + 1 

160 PRINT counter;“overdue books have been returned.“ 

170 WEND 



The screen presentation is not ideal as all the previous fines 
are also displayed with the current one. If the computer had 
been instructed to wait for five seconds after displaying the 
fine at line 130 the screen could then have been cleared. The 
five second delay would have given the librarian time to read 
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the fine. Delays can be created by using the TIME statement. 


The TIME statement 

Your Amstrad CPC 664 contains a counter, labelled TIME, 
which is set to zero when the computer is switched on. 
Thereafter its value is automatically increased by one every 
1/300 of a second. Table 14.1 shows the increase in the value of 
this counter in a given time. 


Time delay 

Increase in the value 
of the TIME counter 

1/300 

second 

1 

1/20 

second 

15 

1/2 

second 

150 

1 

second 

300 

3 

second 

900 

5 

second 

1500 

30 

second 

9000 

1 

minute 

18000 

1 

hour 

1080000 


Table 14.1 The TIME counter 

The value of the TIME counter can be displayed on the 
screen by typing: 

PRINT TINE 

Press an ENTER key. The computer now displays the value of 
the TIME counter at the instant the ENTER key was pressed. 


Example 14a 

In this example you can check that the TIME counter increases 
as shown in Table 14.1. An accurate watch will be required. 
Type: 

PRINT TINE 

Note the time on your watch and at the same instant press an 
ENTER key. The computer displays on the screen the current 
value of the TIME counter. Type: 
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PRINT TIRE 

When one minute has elapsed, press an ENTER key. The 
computer now displays on the screen the value of the TIME 
counter after the one minute delay. Check that the difference 
between the numbers displayed by the computer is approx¬ 
imately 18000 in agreement with Table 14.1. 


Creating a delay in a program 

Table 14.1 shows that a five second delay can be created by 
instructing the computer to wait until the value of the TIME 
counter has increased by 1500. The following sequence would 
achieve this: 

Add 1500 to the current value of the TIME counter and store 
the result in a memory cell labelled end-time using the 
statements: 

18 REH Criatii i five ucond diliy 
28 ind.tiu ■ TIRE * 1588 

Now trap the computer in a loop until the value of the TIME 
counter has increased to greater than the content of the 
memory cell labelled end-time. This will take five seconds 
and could be achieved with an empty WHILE - - - WEND loop: 

38 NHILE TIRE < ind.titi 
48 HERD 

The complete delay is: 

18 RER Create! a five eecond delay 
28 end.tiee * TIRE * 1588 
38 NHILE TIRE < end.tiee 
48 HERD 

Enter and RUN the program. Five seconds pass before the 
Ready message is displayed on the screen showing that the 
computer takes five seconds to execute the program. 

A five second delay can be created after line 130 of the above 
overdue library book program by inserting the lines: 

131 RER Create a five lecond delay 

132 end.tiee ■ TIRE + 1588 
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133 MHILE TIHE < end.tiie 

134 MEND 

Before the next question is asked the screen can be cleared 
by the lines: 

135 REH Clear the screen 

136 CIS 

Insert these lines and RUN the program. 


Example 14b 

Modify the password program of Example 12c so that the 
computer displays the ENTER or NO ENTRY for three 
seconds before requesting the password from the next person. 
A possible program could be: 

10 REH coiparison of passMords 

20 REH Create a MHILE...MEND loop froi which the coeputer 
cannot escape 
30 duiey.test ■■ 0 
40 MHILE duiey.test » 0 
50 REH Clear the screen 
&0 CLS 

70 password! = 'Fido* 

80 REH INPUT the password 

90 INPUT 'Mhat is the password? answer! 

100 IF answer! ° password! THEN PRINT 'ENTER* ELSE PRINT 
■NO ENTRY' 

110 REH Create a three second delay 
120 end.tiie » TIHE i 900 
130 MHILE TIHE < end.tiie 
140 MEND 
150 MEND 


Tutorial 

14.1) Modify the program of Tutorial 11.5 so that the cost of 
petrol is displayed for six seconds before the screen is 
cleared and the program repeats itself. 

14.2) Modify the password program of Tutorial 13.5 so that 
the computer displays the ENTER or NO ENTRY for 
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three seconds before requesting the password from the 
next person. 

14.3) Modify the die program of Tutorial 13.4 so that it rolls 
the die every twenty seconds rather than when an 
ENTER key is pressed. 

14.4) Modify the library book program so that the fine is 
displayed for four seconds. The computer should also 
centre the text on the screen and display it in bright 
yellow on blue except for the fine which should be 
displayed in bright red on blue. 


Solutions to the Tutorials 

14.1) IB REH Purchase of petrol 
2B REH Select lode 1 
30 HODE 1 

48 REH Create a MHILE...HEND loop froe Nhich the coeputer 
cannot escape 
50 duaay.test - 0 
&B WHILE duuy.test ■ 0 
70 LOCATE 1,8 

80 PRINT 'Hon lany litres of petrol do you Nish* 

90 LOCATE 12,10 
IBB PRINT 'to purchase'; 

118 REH INPUT nuiber of litres of petrol 

120 INPUT quantity 

130 REH Clear the screen 

148 CLS 

158 REH Select bright red characters 
l&B PEN 3 

170 REH Calculate and display the cost 

188 cost.per.litre > 42.8 

190 cost.pounds * cost.per.litre f quantity / 108 

280 real.cost ■ ROUNDicost.pounds,2) 

218 LOCATE 5,10 

220 PRINT 'You have asked for';quantity;'litres.' 

230 LOCATE 11,12 

240 PRINT 'The cost is ';real.cost 
250 REH Insert the £ sign 
260 LOCATE 23,12 
270 PRINT '£' 

280 REH Create a delay of six seconds 



148 Introducing the Amstrad CPC 664 

291 cnd.tiK > TIME * 1801 
318 HHILE TINE < ind.tiu 
311 HEND 

321 REH Clear the screen 
330 CLS 
348 HEND 


14.2) 10 REH coaparison of passNords 

28 REH Create a HHILE...HEND loop froi Hhich the coaputer 
cannot escape 
30 duaay.test * 0 
40 HHILE duaay.test ■ 8 
50 REH Clear the screen 
68 CLS 

70 passMordt > 'Fido* 

80 REH If the aeaory cell labelled rtpeit.Ioop$ 
contains 'NO* then escape froa the loop 
90 REH If the aeaory cell labelled repeit.Ioopt 
contains 'YES' then execute the loop 
100 repeat.loops » 'YES' 

110 REH The aeaory cell labelled triis.Iiit stores the 
nuaber of reaaining atteapts to enter the passuord 
120 tries.left « 2 
130 NHILE repeat.loops > 'YES' 

148 REH INPUT the password 

150 INPUT 'Hhat is the password? ',answers 

160 IP answers » passwords THEN repeat.loopS « 'NO' 

178 tries.left « tries.left - 1 

180 IF tries.left = 0 THEN repeat.loopS > 'NO' 

198 HEND 

200 IF answers := passwords THEN PRINT 'ENTER' ELSE PRINT 
'NO ENTRY' 

210 REH Create a three second delay 
220 end.tiae » TIHE + 900 

230 HHILE TIHE < end.tiae 

240 HEND 
250 HEND 


14.3) 18 REH Prograa to siaulate a die 

28 REH Vary the randoa nuaber sequence 
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3B RANDDHIZE TIME 

4B REH The eeiory cell labelled iuiber.of.throii§ stores the 
nueber oT tiees the die has been throen 
SB nueber.of.throes ■ B 

&B REH Create a HH1LE...HEND loop froa which the coaputer 
cannot escape 
7B duaay.test > B 
8B MHILE duaay.test « B 
9B REH Clear the screen 
IBB CIS 

liB randoa.nuaber ■ lNT(RND*6)'i’l 
12B LOCATE 12,IB 

i3B PRINT 'The die shoes';randoa.nuaber 
14B REH Update the nuaber of throes and display it 
15B nuaber.of.throes * nuaber.of.throes * 1 
16B LOCATE 7,12 

17B PRINT 'The die has been rolled'inuaber.of.throes; 
'tiaes.' 

IBB REH Create a 2B second delay 
19B end.tiae ■ TIHE + 6BBB 

2BB NHILE TIHE < end.tiae 

21B BEND 
22B BEND 


14.4) IB REH Calculates the fine on an overdue library book 
2B REH Clear the screen 
3B CLS 

4B REH Fines are charged at 2p per day 
SB charge.per.day - 2 

6B REH The aeaory cell labelled coulter stores the nuaber of 
overdue library books that have been returned 
7B counter = B 

8B REH Create a BHILE...BENO loop froa which the coaputer 
cannot escape 
9B duaay.test = B 
IBB BHILE duaay.test > B 
ilB REH INPUT the days overdue 
12B LOCATE 1,1B 

13B INPUT 'Hoe aany days is the book overdue? ', 
days.overdue 

14B fine - days.overdue « charge.per.day 
ISB REH Display the fine 
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160 LOCATE 3,12 

170 PRINT 'The aeount to be paid it'; 

180 REN Select bright red characters 

190 PEN 3 

200 PRINT fine; 

210 REN Select bright yelloH characters 

220 PEN 1 

230 PRINT 'pence.' 

240 REN Create a four second delay 
250 end.tile > TINE + 1200 
260 NHILE TINE < end.tile 
270 NENO 

280 REN Clear the screen 
290 CLS 

300 REN Increase the overdue book count by one 
310 counter » counter * 1 

320 REN Display the nuiber of overdue books returned 
330 LOCATE 2,8 

340 PRINT counter;'overdue books have been returned.' 
350 HEND 



Chapter Fifteen 


Making your pictures 
move 

c 

Animation 

In Chapter 8 the Amstrad CPC 664's building blocks were used 
to create pictures on the screen. In this chapter the pictures will 
be animated which means that they will be made to move. 
Animation with the computer uses the same techniques as 
animation in cartoons. In these, apparent movement is 
suggested to the viewer by showing a series of still pictures 
each portraying the next stage in the movement. 

If building blocks 248 and 249 are displayed alternately on 
the screen then an image of a man doing leg astride exercises 
can be obtained. The following program will display these 
blocks at screen position 8,10: 

10 REH Legs astride exercise 
20 REH Select eode 0 
30 HODE 0 

40 REH Create a WHILE...HEND loop froi Hhich the coaputer 
cannot escape 
50 duaiy.test - 0 
60 WHILE duaiy.test > 0 
70 REH Display building block 248 at screen 
position 8,10 
80 LOCATE 8,10 
90 PRINT CHR$(248) 

100 REH Display building block 249 at screen 
position 8,10 
110 LOCATE 8,10 
120 PRINT CNR$(249) 

130 WEND 
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Enter and RUN the program. The computer displays the man 
but he is doing his exercises too fast. Press the escape key 
twice to terminate the program. The man can be slowed down 
by inserting a delay after each image is drawn on the screen 
(i.e. after lines 90 and 120). The following lines would produce 
delays of Vi of a second: 


91 REH Create a delay of 1/4 second 

92 end.tiae > TIHE * 75 

93 WHILE TIME < end.tiee 

94 WEND 

121 REH Create a delay of 1/4 second 

122 end.tiee « TIHE + 75 

123 WHILE TIHE < end.tiae 

124 WEND 


Add these lines to the program and RUN it. The man now does 
his leg astride exercises at a reasonable speed. Experiment 
with other time delays. 


Example 15a 

Using building blocks 248 and 250, write a program that 
displays a man swinging his left leg to the side and then back 
again. 

A possible program could be: 

10 REH Han doing left leg saings 
20 REH Select aode 0 
30 HODE 0 

40 REH Create a WHILE...WEND loop froa which the coeputer 
cannot escape 
50 duaey.test * 0 
60 WHILE duaey.test - 0 
70 REH Display building block 248 at screen 
position 8,10 
80 LOCATE 8,10 
90 PRINT CHRI(248) 

100 REH Create a delay of 1/4 second 
110 end.tiae » TIHE * 75 

120 WHILE TIHE < end.tiae 

130 WEND 

140 REH Display building block 250 at screen 
position 8,10 
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15B 

LOCATE e,lB 


16B 

PRINT CHR$(2SB) 


17B 

REH Create a delay of 1/4 second 


18B 

end.tile » TIHE + 75 


19B 

WHILE TIHE < end.tiie 


2BB 

NEND 


2iB NEND 


Tutorial 


15.1) 

Using building blocks 248 and 

251, write a program that 


displays a man swinging his 
then back again. 

right leg to the side and 

15.2) 

Using building blocks 248, 

250, and 251, write a 


program that displays a man swinging one leg and then 
the other to the side and back again. 

Before a picture can be moved across the screen some of the 
BASIC statements must be re-examined. 


Using labels as parameters 

In the previous chapters, statements such as LOCATE, PEN, 
etc. have always been followed by one or two numbers: 

LOCATE 6,IB 
PEN 3 

These numbers are called the parameters of the statement. It is 
possible to use the labels given to memory cells as the 
parameters. Look at the following program: 

IB REH Deionstration of the use of labels given to eeaory 
cells as paraieters 
2B colour a 3 
3B PEN colour 

4B PRINT 'The pen colour is noM bright red.' 

SB colour * 2 
6B PEN colour 

7B PRINT 'The pen colour is now bright cyan.' 

Enter and RUN the program. Since, at line 20, the number 3 
is stored in the memory cell labelled colour, line 30 is 
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equivalent to: 

PEN 3 

Hence line 40 is displayed on the screen in bright red. 
Similarly lines 50 and 60 change the pen colour to bright cyan. 


Example 15b 

Extend the program of Example 15a so that the man changes 
colour randomly. 

Add the following lines to the program of Example 15a 

15 REN Vary the randoi nuiber lequence 

16 RANDOMIZE TINE 

61 REN Select a randoa colour 

62 colour > INTIRNDtlSlM 

63 PEN colour 


Tutorial 

15.3) Extend the program of Example 15b so that the man and 
his background change colour randomly with the rest of 
the screen blue. 


Creating movement across the screen 

A multiplication sign can be moved across the screen by 
drawing the sign in column one, waiting a short time, deleting 
the sign in column one, and then repeating this process in the 
other columns until the * is across the screen. 

The following program will move the * across row 8 of the 
screen in mode 0: 

10 REN Novas a star across the screen 
20 REN Select aode 0 
30 NODE 0 

40 REN The aeeory cell labelled coluea stores the screen coluan 
where the * is currently displayed 
50 coluan » 1 

60 REN Lines 70 to 200 fora the loop that aoves the * across 
the screen 

70 NHILE coluan <> 20 
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81 REH Draw the * on the screen 
90 LOCATE coluan,8 
100 PRINT *»■ 

110 REN Delay Tor 1/4 second 
120 end.tiee ■ TINE * 75 
130 HHILE TINE < end.tiee 
140 NEND 

150 REN Delete the • froa the screen 
160 LOCATE coluin,8 

170 PRINT ■ ' 

180 REN Increase the screen coluan position by one 
190 coluan • coluan * 1 
200 NEND 

Enter and RUN the program. The * should now move across 
the screen. Experiment with different delays at line 120. Also 
try adding a second delay after line 170 as follows: 

171 REN delay Tor 1/4 second 

172 end.tiae «TIHE * 75 

173 NHILE TINE < end.tiae 

174 NEND 

RUN the program and notice the pulsating motion. 


Example 15c 

Write a program in mode 0 to move a * diagonally from screen 
position 1,1 to 20,20. 

Add the following lines to the last program: 

41 REN The aeaory cell labelled ran stores the screen roM uhere 
the * is currently displayed 
51 row > 1 
191 roe s rot* ♦ 1 

and change the lines 90, 160 and 180: 

90 LOCATE coluan,row 
160 LOCATE coluan,roH 

180 REN Increase the screen coluan and ron position by one 
Tutorial 

15.4) Write a program that displays in mode 0 a * moving 
vertically down the screen in column 10. 
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15.5) Write a program in mode 0 that displays a * moving up 
the screen in column 10. 

15.6) Extend the program of Tutorial 15.4 so that the * 
changes colour randomly. 


Moving larger pictures 

The * that was moved around the screen in the last section 
only occupied one screen position. However a similar princi¬ 
ple can be used to move drawings that consist of several 
building blocks. 

Let's move a space ship vertically up the screen. The section 
of a mode 0 screen display planner in Fig. 15.1 shows the space 
ship which will be bright red on a blue background. 



Figure 15.J Screen display planner showing a spaceship 


The following program will draw the space ship: 

10 REH DraN the space ship 

20 REH Select aode 0 

30 HODE 0 

40 REH The aeaory cell labelled roe stores the screen roe of 
the display. Start with the top of the space ship at roe 19 

50 roH ■ 19 

60 REH Select bright red characters 

70 PEN 3 

00 REH Drae the space ship 

90 REH The aeaory cell labelled coulter stores the nuaber of 
tiaes the HHILE...MEND loop has been executed. During each 
execution of the loop the coaputer aill display a roa of the 
space ship. 

100 counter » 0 
110 NHILE counter < 4 
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120 REH The leiory cell labelled block storei the 
building block being displayed 
130 IF counter > 0 THEN block > 244 ELSE block « 143 
140 LOCATE 10,roN 
150 PRINT CHRI(block) 

1&0 counter > counter + 1 

170 REN Increase the screen row Tor the next line of the 
space ship 
180 roH > roN 1 
190 NEND 

Enter and RUN the program. A bright red space ship should be 
displayed on the screen. 

The space ship can be moved up the screen by constantly 
repeating the following steps: 

1) Drawing the space ship one row further up the screen. 

2) Deleting the bottom character of the previous space ship. It 
is only necessary to delete the last row of the space ship as 
the other rows will be deleted when the space ship is 
redrawn. 

3) Waiting a short time. 

This can be achieved by modifying the program that drew 
the space ship to give it the following structure: 

10 

t 

• 

50 

51 REN Ripeat this loop until the space ship reaches the top of 
the screen 

52 HHILE roN >>1 
&0 

• 

a 

190 

200 REN Delete last row of the previous space ship 
210 LOCATE 10,roN 
220 PRINT • ■ 

230 REN Delay a 1/8 second 
240 end.tiae » TINE + 38 
250 NHILE TINE < end.tiae 
260 NEND 
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27fl REH Decrease the screen roe by five to set it to the 
top of the next space ship to be displayed 
2BI roM B roN - 5 
290 MEND 

The WHILE. . .WEND loop from lines 52 to 290 moves the 
space ship up the screen by: 

1) Drawing the space ship, in lines 60 to 190, with its top at 
screen position 10,row. 

2) Deleting, in lines 200 to 220, the last row of the previous 
space ship. 

3) Waiting Vs of a second before repeating the loop. 

Add these extra lines to the program that drew the space 
ship and RUN it. The space ship will move up the screen. 
SAVE the program onto a disk and call it ROCKET. 


Example 15d 

Extend the above program so that the space ship's exhaust 
fuels are visible. Building block 253 displayed in bright yellow 
will be used to represent the fuel. 

A possible program could be: 

10 REH DriN thi space ship Mith fuel burn 
20 REH Select aode 0 
30 HODE 0 

40 REH The leeory cell labelled roe stores the screen roH of 
the display. Start with the top of the space ship at roM 19 
S0 roe = 19 

60 REH Repeat this loop until the space ship reaches the top of 
the screen 
70 MHILE roM >> 1 

80 REH Select bright red characters 
90 PEN 3 

100 REH Draw the space ship 
110 REH The eeeory cell labelled coutitr stores the 
nueber of tines the HH1LE...HEND loop has been 
executed 

120 counter ■ 0 
130 MHILE counter < 4 

140 REH The leeory cell labelled block stores the 
building block being displayed 
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150 IF counter « 0 THEN block > 244 ELSE block > 143 
160 LOCATE 10,roH 

170 PRINT CHR«(block) 

180 counter > counter * 1 

190 REN Increase the screen roe Tor next line of the 
space ship 

200 roN > roN + 1 

210 NEND 

220 REN Drae the fuel in bright yelloM 

230 PEN 1 

240 LOCATE 10,roe 

250 PRINT CHR$(253) 

260 REN Increase the screen roe for the next line 
270 roM «roN * 1 

260 REN Delete last roe of the previous space ship 
290 LOCATE 10,roN 

300 PRINT ■ ’ 

310 REN Delay a 1/8 second 
320 end.tiae ■ TINE * 38 

330 NHILE TINE < end.tiae 

340 NEND 

350 REN Decrease the screen roe by six to set it to the 
top of the next dreeing 
360 roN * roN - 6 

370 NEND 

You may wish to vary the time delay at lines 320 to 340. SAVE 
the program onto a disk and call it FUEL. 


Tutorial 

15.7) Modify the program of Example 15d so that the fuel 
ceases to be seen half way up the screen. SAVE the 
program onto a disk and call it HALFUEL. 

15.8) Modify the program of Tutorial 15.7 so that it writes the 
letters USA down the rocket. 


Solutions to the tutorials 

15.1) The program is the same as for Example 15a except for 
the lines: 

140 Display building block 251 at screen position 6,10 
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lit PRINT CHRI(2S1) 

15.2) II REH Han doing left and right leg SHings 
21 REH Select aode 8 
38 HODE 0 

40 REH Create a HHILE...HEND loop Troe Hhich the coeputer 
cannot escape 
50 dueay.test > 0 
60 MHILE dueay.test > 0 
70 REH Display building block 248 at screen 
position 8,10 
80 LOCATE 8,10 
90 PRINT CHR$(248) 

100 REH Create a delay of 1/4 second 
110 end.tiae > TIHE * 75 

120 NHILE TIHE < end.tiae 

130 HEND 

140 REH Display building block 250 at screen 
position 8,10 
150 LOCATE 8,10 
160 PRINT CHR$(250) 

170 REH Create a delay of 1/4 second 

180 end.tiae ■ TIHE + 75 

190 NHILE TIHE < end.tiae 

200 NEND 

210 REH Display building block 248 at screen 
position 8,10 
220 LOCATE 8,10 
230 PRINT CHRf(248) 

240 REH Create a delay of 1/4 second 

250 end.tiae = TIHE * 75 

260 NHILE TIHE < end.tiae 

270 NEND 

280 REH Display building block 251 at screen 
position 8,10 
290 LOCATE 8,10 
300 PRINT CHR»(251) 

310 REN Create a delay of 1/4 second 

320 end.tiae - TINE * 75 

330 NHILE TIHE < end.tiae 

340 HEND 
350 NEND 


15.3) Add the following lines to the program of Example 15b 
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64 REN Bilict a randoi colour 

65 colour ■ 1NT(RND*1S)+1 

66 PAPER colour 

15.4) 10 reH Moves a star doun the screen 

28 REH Select aode 8 
38 NODE 8 

48 REH The aeiory cell labelled roe stores the screen row where 
the * is currently displayed 
58 row > 1 

68 REH Lines 78 to 288 fora the loop that loves the * down the 
screen 

78 WHILE row <> 25 
88 REH Draw the • on the screen 
98 LOCATE 18,row 

188 PRINT '»• 

118 REH Delay for 1/4 second 

128 end.tiae > TIME * 75 

138 WHILE TIME < end.tiae 

148 WEND 

158 REH Delete the * froe the screen 
168 LOCATE 18,row 

178 PRINT • ■ 

188 REH Increase the screen row position by one 
198 row B roN + 1 

288 WEND 


15.5) The program is the same as for Tutorial 15.4 except for 
the following lines: 

18 REH Moves a star up the screen 
58 row ■ 25 

68 REH Lines 78 to 288 fora the loop that aoves the * up the 
screen 

78 WHILE row >» 1 

188 REH Decrease the screen row position by one 
198 row s row - 1 

15.6) Add the following lines to the program of Tutorial 15.4: 

15 REH Vary the randoa nuaber sequence 

16 RANDOMIZE TIME 

71 REH Select a randoi colour 

72 colour ■ INT(RND»15)+1 
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73 PEN colour 

15.7) Change line 250 of the program called F U E L of Example 
15d to: 

230 IF row > 12 THEN PRINT CHR${253) ELSE PRINT ' ' 

15.8) Add the following lines to the program called 
HALFUELof Tutorial 15.7: 

301 REN Transparent printing 

302 PRINT CHR$(22)+CHR$(1) 

303 REN Decrease row to the base of the body of the 
space ship 

304 row ■ row - 2 

305 REN Display the A, the S and then the U 

306 LOCATE 10,row 

307 PRINT *A' 

308 row « row -1 

309 LOCATE 10,row 

310 PRINT 'S' 

311 row * row -1 

312 LOCATE 10,row 

313 PRINT 'O' 

314 REN Norial printing 

315 PRINT CHRI(22)*CHR$(0) 


As line 310 has been overwritten, make it line 316: 

316 REN Delay a 1/B second 
Change lines 350 and 360 to: 

350 REN Decrease the screen row by two to set it to the top of 
the next drawing 
360 row * row - 2 



Chapter Sixteen 


Sound effects with the 
Amstrad CPC 664 



Playing musical notes 


Your Amstrad CPC 664 is able to play tunes which are 
composed of individual notes that can be generated by the 
SOUND statement. Turn the volume control, which is in front 
of the ON—OFF switch at the right hand edge of the computer, 
fully up. Type (noticing the space between SOUND and 
1,478): 

SOUND 1,478 

Press an ENTER key. The computer now plays middle C. 
The first number in the SOUND statement (i.e. 1) will be 
discussed later. The second number (i.e. 478) determines the 
note as shown in Table 16.1. 


Note Sound number 


G 

1276 

G# 

1204 

A 

1136 

A# 

1073 

B 

1012 

C 

956 

C# 

902 

D 

851 

D# 

804 

E 

758 

F 

716 

F# 

676 

G 

638 

G# 

602 

A 

568 

A# 

536 

B 

506 


Octave -2 


Octave -1 


163 



164 
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Note 

Sound number 

middle C 

478 


C# 

451 


D 

426 


D# 

402 


E 

379 


F 

358 

Octave 0 

F# 

338 


G 

319 


G# 

301 


A 

284 


A# 

268 


B 

253 


C 

239 ' 


C# 

225 


D 

213 


D# 

201 


E 

190 

Octave 1 

F 

179 


F# 

169 


G 

159 


G# 

150 


A 

142 



Table 16.3 Sound number values 


Example 16a 

Write a program to play the scale of C which consists of 
C,D,E,F,G,A,B in octave 0 and C in octave 1. 

A possible program could be: 

le REH Scale of C 
20 SOUND 1,478 
30 SOUND 1,426 
40 SOUND 1,379 
SO SOUND 1,358 
60 SOUND 1,319 
70 SOUND 1,284 
80 SOUND 1,253 
90 SOUND 1,239 


Enter and RUN the program. The computer plays the scale of 
C. When the computer executed line 20 it started to play 
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middle C. While playing this note it executed line 30 where it 
was told to play D. Since it was playing a note it put the note D 
into a queue and carried on to execute line 40 and so on. When 
it finished playing each note the computer immediately started 
to play the next note in the queue. As it takes longer to play the 
notes than to execute the statements the computer finished the 
program and displayed the usual Ready message while the 
scale was still being played. RUN the program again and 
observe this. 

Tutorial 

16.1) Write a program to play D,F#,A in octave 0 and D in 
octave 1. 

16.2) Write a program to play A,E,C# in octave 1 and A in 
octave 0. 

Reading music 

The positions of the notes in the treble clef are: 



CDEFGABCDEFGA 


- Octave 0-► —Octave 1-• • • 

On the piano these notes are played with the right hand. 
The positions of the notes in the bass clef are: 



CBAGFE DCBAGF 
Octave 0-*- -Octave-1-*--«-Octave-2— 

On the piano these notes are played with the left hand. 

If there are any sharps (i.e. #) at the beginning of the clef 
then the note is sharpened. 
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These notes would be D,F#A. The F in all octaves would be 
sharpened. 


Tutorial 

16.3) List the following notes: 



Example 16b 

Write a program to play the following notes: 



The notes are E,G,B in octave 0. A possible program could 
be: 

10 REH Exatple 16.b 
20 SOUND 1,379 
30 SOUND 1,319 
40 SOUND 1,253 


Tutorial 

16.4) Write a program to play the following notes: 



The duration of notes 

A tune consists of notes that are played for different lengths of 
time. The duration of each note is described in terms of its 
number of beats. The notes are written as follows: 
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I I t ft 

a J. W J J 

~4 3 2 i ^ 

Two half beat notes are often written as: 



The duration of each note can be controlled by the SOUND 
statement. Type: 

SOUND 1,478,20 

Press an ENTER key. The computer will now play middle C for 
1/5 of a second. Type: 

SOUND 1,478,100 

Press an ENTER key. This time the computer plays middle C 
for one second. 

The third number in the SOUND statement determines the 
duration of the note. The duration of the note in seconds is this 
number divided by 100. Therefore in the statement: 

SOUND 1,478,20 

the duration of the note is 20/100 which is 1/5 of a second. In 
the statement: 

SOUND 1,478,100 

the duration of the note is 100/100 which is one second. 

If the computer is not given the duration of the note as in 
Example 16a then it makes the note last for 1/5 of a second. 


Example 16c 

Write a program to play the following notes: 
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If a one beat note lasts for one second the notes will be: F for 
one second, G for Vi of a second, A for Vi of a second and B for 
two seconds. 

A possible program could be: 

le REH Exaiple 16.c 
28 SOUND 1,358,188 
38 SOUND 1,319,58 
48 SOUND 1,284,58 
58 SOUND 1,253,288 

Enter and RUN the program. If you feel that the speed is too 
fast or too slow then alter the third number in the SOUND 
statements. 

Tutorial 

16.5) Write a program to play the scale of C so that each note 
lasts for one second 

16.6) Write a program to play the following tune: 



Make a one beat note last for Vi of a second. Notice that 
the music has been divided into bars each of which 
have the same number of beats. 

16.7) Write a program to play the following extract from 'Sing 
a Song of Sixpence': 



Repeated notes 

Let's look at the first few bars of 'Good King Wenceslas': 
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A possible program could be: 

18 REH Good King Henceslas 
28 SOUND 1,319,58 
38 SOUND 1,319,58 
48 SOUND 1,319,58 
58 SOUND 1,284,58 
68 SOUND 1,319,58 
78 SOUND 1,319,58 
88 SOUND 1,426,188 


Enter and RUN the program. As the first three notes are all the 
same the computer runs them together which distorts the tune. 

The best way to separate the notes is to insert an extra note 
of a short duration (1/20 of a second) between the notes. If you 
make these extra notes a very high frequency then the speaker 
will not be able to play them and they will not be heard. A 
suitable note would be: 

SOUND 1,2,5 

With these extra notes the above program becomes: 

18 REN Good King Henctslas 
28 SOUND 1,319,58 
25 SOUND 1,2,5 
38 SOUND 1,319,58 
35 SOUND 1,2,5 
48 SOUND 1,319,58 
58 SOUND 1,284,58 
68 SOUND 1,319,58 
65 SOUND 1,2,5 
78 SOUND 1,319,58 
88 SOUND 1,426,188 


Add the extra notes to the program and RUN it. 


Tutorial 

16.8) Write a program to play the first few notes of Three 
Blind Mice'. 
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Several notes at once 

Your Amstrad CPC 664 has three separate sound channels A, B 
and C which allows you to play up to three notes at the same 
time. So far you have only used channel A. 

The first number in the SOUND statement is the channel 
number and determines the channel in which the note is to be 
played as follows: 


Channel 

Channel number 

A 

1 

B 

2 

C 

4 


Let's write a program to play the following notes with each 
lasting for 2 seconds: 


The C and G will be played in channel A and the E in channel 
B. The C will be played in channel A by the statements: 

IB REH Play C on channel A 
20 SOUND 1,478,200 

You must now tell the computer to play G on channel A and 
E on channel B at the same time. The notes are said to 
rendezvous. When the computer is to play two or three notes at 
the same time then the channel numbers are changed as in 
Table 16.2. 

In our example we want G on channel A to rendezvous with 
E on channel B. This is achieved with the statements: 

30 REH Play 6 on channel A but rendezvous with the 
note on channel B 
40 SOUND 17,319,200 

50 REH Play E on channel B but rendezvous with the 
note on channel A 
60 SOUND 10,379,200 
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Channel number 

Action 

1 

Send note to channel A only 

2 

Send note to channel B only 

4 

Send note to channel C only 

17 

Send note to channel A and play the channel 

B rendezvous note at the same time. 

33 

Send note to channel A and play the channel 

C rendezvous note at the same time. 

10 

Send note to channel B and play the channel 

A rendezvous note at the same time. 

34 

Send note to channel B and play the channel 

C rendezvous note at the same time. 

12 

Send note to channel C and play the channel 

A rendezvous note at the same time. 

36 

Send note to channel C and play the channel 

B rendezvous note at the same time. 

49 

Send note to channel A and play the channel 

B and C rendezvous notes at the same time. 

42 

Send note to channel B and play the channel 

A and C rendezvous notes at the same time. 

28 

Send note to channel C and play the channel 

A and B rendezvous notes at the same time. 


Table 16.2 Rendezvous channel numbers 


Notice that the channel numbers of both channel A and B are 
changed according to Table 16.2 when the notes are to be 
played simultaneously. Enter and RUN the program. 


Example 16d 

Write a program for the following music with a beat lasting for 
V 2 of a second: 


1 Q , 1 . 1 , 1 r 1 1 1 ~i 1 


- 

1 

T 1 r 

^ 1 



i _ J 

“^7—1 - d 1 

1 J 1 

1 J J 




V' J. d * J. 

J- 



I 



___ 


_L_ 

• ll " 


1 r ^ 

m 1 ; 



9 1 1 



1 # r 

r #_ 



* J 


^ — 


-J 


The notes of the treble clef will be played in channel A and 
for the bass clef in channel B. Suitable program lines for bar 1 
would be: 

IB REH Plays Frere Jacques 




172 Introducing the Amstrad CPC 664 

21 SOUND 1,478,58 
38 SOUND 1,42&,S8 
48 SOUND 1,379,58 
58 SOUND 1,478,58 


Bar 2 could continue: 

&8 REN DuMy note icparatcs repeated C 

78 SOUND 1,2,5 

88 SOUND 1,478,58 

98 SOUND 1,42&,58 

188 SOUND 1,379,58 

118 SOUND 1,478,58 


Bar 3 could continue: 

128 REN Rendeavoui note E in channel A with C in channel 8 
138 SOUND 17,379,58 
148 SOUND 18,95i,58 

158 REN Rendezvous note F in channel A eith D in channel B 
168 SOUND 17,358,58 
178 SOUND 18,851,58 

188 REH Rendezvous note 6 in channel A uith E in channel 8 
198 SOUND 17,319,188 
288 SOUND 18,758,58 
218 SOUND 2,956,58 


Bar 4 is a repeat of bar 3 except for the first note of channel B 
which is the dummy separator: 

228 REH Separator note 
238 SOUND 2,2,5 

248 REH Rendezvous note E in channel A with C in channel 8 
258 SOUND 17,379,58 
268 SOUND 18,956,58 

278 REH Rendezvous note F in channel A with D in channel 8 
288 SOUND 17,358,58 
298 SOUND 18,851,58 

388 REN Rendezvous note 6 in channel A with E in channel 8 
318 SOUND 17,319,188 
328 SOUND 18,758,58 
338 SOUND 2,956,58 


Enter and RUN the program. 
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Tutorial 

16.9) Write a program to play the following tune: 




■■1 

Ilk 

III 

■■k 

III 

ml 

ml 

:b: 

rasa 

Hll 

III 

III 




IIIH 











i&flSS 








16.10) Write a program to play the following tune: 



Solutions to the tutorials 

16.1) 10 REH Plays 0,FI,A in octavi 0 and 0 in octave 1 
28 SOUND 1,426 

30 SOUND 1,338 
40 SOUND 1,284 
58 SOUND 1,213 

16.2) 10 REH Plays A,E,Ct in octave 1 and A in octave 0 
20 SOUND 1,142 

30 SOUND 1,198 
40 SOUND 1,225 
50 SOUND 1,284 

16.3) The notes are 
F octave 0 

B octave 0 
E octave 1 
G octave 0 
E octave 0 
D octave 1 

C octave 0 (middle C) 

16.4) 10 REH Tutorial 16.4 
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28 SOUND 1,358 
38 SOUND 1,284 
48 SOUND 1,239 
58 SOUND 1,179 

16.5) 18 REN Scale of C 
28 SOUND 1,478,188 
38 SOUND 1,426,188 
48 SOUND 1,379,188 
58 SOUND 1,358,188 
68 SOUND 1,319,188 
78 SOUND 1,284,188 
88 SOUND 1,253,188 
98 SOUND 1,239,188 

16.6) 18 REN Net Nillie Hinkle 
28 SOUND 1,239,58 

38 SOUND 1,319,25 
48 SOUND 1,284,25 
58 SOUND 1,319,58 
68 SOUND 1,379,58 
78 SOUND 1,358,58 
88 SOUND 1,426,25 
98 SOUND 1,379,25 
188 SOUND 1,426,188 

16.7) 18 REN Sing a Song of Sixpence 
28 SOUND 1,239,28 

38 SOUND 1,253,28 
48 SOUND 1,284,28 
58 SOUND 1,319,28 
68 SOUND 1,239,48 
78 SOUND 1,379,48 
88 SOUND 1,319,28 
98 SOUND 1,284,28 
188 SOUND 1,319,28 
lie SOUND 1,379,28 
128 SOUND 1,319,88 


16.8) 18 REN Three Blind Nice 
28 SOUND 1,338,58 
38 SOUND 1,379,58 
48 SOUND 1,426,188 
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se SOUND 1,338,51 
68 SOUND 1,379,58 
78 SOUND 1,426,188 
88 SOUND 1,284,58 
98 SOUND 1,319,25 
188 SOUND 1,2,5 
118 SOUND 1,319,25 
128 SOUND 1,338,188 


16.9) 18 REN Plays Good King Henceslai 
28 SOUND 17,319,58 
38 SOUND 18,638,180 
40 SOUND 1,2,5 
58 SOUND 1,319,50 
60 SOUND 1,2,5 
78 SOUND 17,319,50 
80 SOUND 10,638,188 
98 SOUND 1,568,58 


188 

SOUND 

1,2,5 

no 

SOUND 

49,319,58 

128 

SOUND 

42,638,100 

138 

SOUND 

28,1812,108 

148 

SOUND 

1,2,5 

158 

SOUND 

1,319,58 

160 

SOUND 

1,2,5 

170 

SOUND 

17,426,100 

188 

SOUND 

10,638,188 

198 

SOUND 

17,379,58 

200 

SOUND 

10,956,58 

210 

SOUND 

17,426,50 

220 

SOUND 

10,1812,50 

230 

SOUND 

17,379,58 

240 

SOUND 

10,956,50 

258 

SOUND 

17,338,58 

268 

SOUND 

18,851,50 

278 

SOUND 

17,319,188 

288 

SOUND 

10,1276,180 

290 

SOUND 

1,2,5 

380 

SOUND 

17,319,188 

310 

SOUND 

18,1276,188 


16.10) 18 REN Playi Three Blind Nice 
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2B SOUND 49,338,68 
30 SOUND 42,568,60 
40 SOUND 28,851,68 
50 SOUND 49,379,60 
60 SOUND 42,638,60 
70 SOUND 28,1136,60 
80 SOUND 49,426,120 
90 SOUND 42,676,120 
IBB SOUND 28,851,120 
110 SOUND 4,2,5 
120 SOUND 49,338,60 
130 SOUND 42,568,60 
148 SOUND 28,851,60 
150 SOUND 49,379,60 
160 SOUND 42,638,60 
170 SOUND 28,1136,68 
180 SOUND 49,426,120 
190 SOUND 42,676,120 
200 SOUND 28,851,120 
218 SOUND 49,284,60 
220 SOUND 42,426,60 
230 SOUND 28,676,60 
240 SOUND 49,319,30 
250 SOUND 42,478,60 
260 SOUND 28,758,60 
278 SOUND 1,2,5 
280 SOUND 1,319,30 
298 SOUND 49,338,120 
380 SOUND 42,426,120 
310 SOUND 28,851,120 



Chapter Seventeen 


Programs within 
programs 



Consider the program of Example 14b to check a password: 


IB REH Coiparison of passMords 
21 REH Create a WHILE...WEND loop froe which the coaputer 
cannot escape 
31 duaay.test * B 
4B WHILE duaay.test « B 
SB REH Clear the screen 

6B CLS 

7B passNordt ■ 'Fido* 

BB REH INPUT the password 

9B INPUT 'What is the password? ',answerl 
IBB IF answerl > password! THEN PRINT 'ENTER* ELSE PRINT 
'NO ENTRY' 

ilB REH Create a three second delay 
12B end.tlae ■ TIHE ^ 9BB 

13B WHILE TIHE < end.tiae 

14B WEND 

15B WEND 


Instead of displaying ENTER, at line 100, for the correct 
password you may wish to clear the screen and display at the 
centre of the screen in bright cyan: 

Please wait. Enter when the door is fully open. 

Also for a wrong password you may wish to display at the 
centre of the screen in bright red on a bright yellow 
background: 

NO ENTRY 

This would require line 100 to become: 

177 
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100 IF ansNer$ > passMordt THEN CIS 

REH Select bright cyan pen 
PEN 2 

LOCATE 14,10 
PRINT ’Please Halt.' 

LOCATE 3,12 

PRINT 'Enter Nhen the door 
is fully open.' 

REN Select bright yelloM pen 
PEN 1 

ELSE REN Select bright red pen 
PEN 3 

REN Select bright yell on 

background 

PAPER 1 

CLS 

LOCATE 17,12 
PRINT 'NO ENTRY' 

REN Select blue background 
and bright yell on pen 
PAPER 0 
PEN 1 


Unfortunately with BASIC it is not possible to have several 
statements after a THEN or an ELSE. However the program 
could be written: 

10 

20 

■ 

s 

90 

100 IF ansNerl = passNordf THEN execute lines 300 to 380 

and then continue onto line 110 
ELSE execute lines 500 to 590 
and then continue onto line 110 

110 


150 

300 CLS 

310 REN Select bright cyan pen 
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320 PEN 2 

338 LOCATE 14,10 

340 PRINT 'Please Malt.' 

350 LOCATE 3,12 

360 PRINT 'Enter Hhen the door is fully open.' 

370 REN Select bright yelloM pen 
380 PEN 1 

508 REN Select right red pen 
518 PEN 3 

520 REN Select bright yelloN background 
530 PAPER 1 
540 CLS 

550 LOCATE 17,12 
560 PRINT 'NO ENTRY' 

570 REN Select blue background and bright yelloN pen 
580 PAPER 0 
590 PEN 1 


The nine statements that have to be executed if the condition 
at line 100 is true have been given line numbers 300 to 380. 
Also the ten statements that have to be executed if the 
condition at line 100 is false have been given line numbers 500 
to 590. Lines 300 to 380 and 500 to 590 are called subroutines. 
The lines 10 to 150 are called the main program. The main 
program must always come before the subroutines so that its 
line numbers must always be smaller than those of the 
subroutines. 

The BASIC statement that instructs the computer to stop 
executing the program and start executing a subroutine is: 

B0SU8 ... 

where the ... is the line number of the start of the subroutine 
and is separated from the GOSUB by a space. Hence line 100 
becomes: 

100 IF ansHer$ > patSNordI THEN 60SUB 300 ELSE GOSUB 500 

The BASIC statement that instructs the computer that it has 
reached the end of the subroutine and that it should go back to 
the line after the GOSUB statement is: 


RETURN 
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The following lines would thus be required at the end of the 
subroutines: 

390 RETURN 
600 RETURN 

These lines would instruct the computer to go back to the line 
after the GOSUB statement at line 100, that is, to line 110. 

The computer must also be instructed when it has completed 
the main program by inserting an E N D statement after its last 
line as follows: 

160 END 

The complete program becomes: 

10 REN Coiparison of passNords 

20 REN Create a NHILE..,HEND loop froa which the coaputer 
cannot escape 
30 duaay.test - 0 
40 HHILE duaay.test > 0 
50 REN Clears the screen 
60 CIS 

70 password) » 'Fido* 

80 REN INPUT the password 

90 INPUT ‘Nhat is the password? '.answer! 

100 IF answer! > password! THEN GOSUB 300 ELSE GOSUB 500 

110 REN Create a three second delay 

120 end.tiae » TINE f 900 

130 HHILE TINE < end.tiae 

140 HEND 

150 HEND 

160 END 

300 CLS 

310 REN Select bright cyan pen 

320 PEN 2 

330 LOCATE 14,10 

340 PRINT 'Please wait.' 

350 LOCATE 3,12 

360 PRINT 'Enter when the door is fully open.' 

370 REN Select bright yellow pen 
380 PEN 1 
390 RETURN 

500 REN Select bright red pen 
510 PEN 3 

520 REN Select bright yellow background 



Programs within programs 181 


538 PAPER 1 
548 CIS 

558 LOCATE 17,12 
568 PRINT 'NO ENTRY* 

578 REN Select blue background and bright yellou pen 
588 PAPER 8 
598 PEN 1 
688 RETURN 

Example 17a 

Modify the program of Tutorial 14.4 so that the fine is waived 
if it is less than 6 pence. 

A possible program could be: 

18 REN Calculates the fine on an overdue library book 
28 REN Clear the screen 
38 CLS 

48 REN Fines are charged at 2p per day after three days 
58 charge.per.day ■ 2 

68 REN The eeeory cell labelled coulter stores the nueber of 
overdue library books that have been returned 
78 counter « 8 

88 REN Create a HHILE...NEND loop froe Hhich the coaputer 
cannot escape 
98 dueey.test > 8 
188 NHILE dueey.test « 8 
118 REN INPUT the days overdue 
128 LOCATE 1,18 

138 INPUT 'Hon eany days is the book overdue? ', 
days.overdue 

148 IF days.overdue < 3 THEN 60SUB 588 ELSE 60SUB 388 

158 REN Create a four second delay 

168 end.tiee * TINE * 1288 

178 WHILE TINE < end.tiee 

188 WEND 

198 REN Clear the screen 
288 CLS 

218 REN Increase the overdue book count by one 
228 counter * counter + 1 

238 REN Display the nueber of overdue books returned 
248 LOCATE 2,8 

258 PRINT counter;‘overdue books have been returned.' 

268 WEND 
278 END 
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308 REN Subroutine to calculate and display the fine 
310 fine * days.overdue * charge.per.day 
320 REN Display the fine 
338 LOCATE 3,12 

348 PRINT 'The aeount to be paid is'; 

350 REN Select bright red characters 

368 PEN 3 

370 PRINT fine; 

360 REN Select bright yelloN characters 
390 PEN 1 

480 PRINT 'pence.' 

410 RETURN 

588 REN Subroutine to display no fine 
518 LOCATE 3,12 

528 PRINT 'There is no fine on this book.' 

530 RETURN 


Tutorial 

17.1) Modify the program of Tutorial 13.6 so that when you 
try to overdraw from your account it displays: 

You do not have enough aoney for this transaction. 

You have only ... pounds in the bank. 

It is possible for the same subroutine to be called from 
different places in the main program as shown in the following 
example. 


Example 17b 

Modify the program of Example 15a so that the time delays 
form a subroutine. 

A possible program could be: 

10 REN Nan doing left leg suings 
20 REN Select eode 0 
30 NODE 0 

40 REN Create a NHILE...HEND loop froi which the coeputer 
cannot escape 
50 dueay.test > 8 
60 NHILE duiiy.test * 0 
70 REN Display building block 248 at screen 
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position 8,10 
80 LOCATE 8,10 
90 PRINT CHR$(248) 

100 REN Call tht tin dal ay subroutine 
110 80SUB 300 

120 REN Display building block 250 at screen 
position 8,10 
130 LOCATE 8,10 
140 PRINT CHR$(2S0) 

150 REN Call the tiae delay subroutine 
U0 80SUB 300 
170 NEND 
180 END 

300 REN This subroutine create a delay of 1/4 second 

310 end.tiee » TINE ^ 75 

320 MHILE TINE < end.tiee 

330 MEND 

340 RETURN 

Enter and RUN the program. At line 110 the computer is 
instructed to execute the subroutine starting at line 300. At line 
340 the RETURN statement instructs it to go back to the line 
after the GOSUB statement, that is, line 120. A similar 
procedure occurs at line 160 but this time the RETURN at line 
340 instructs the computer to go back to line 170 as the GOSUB 
statement that sent it to the subroutine is at line 160. 

Tutorial 

17.2) Rewrite the solution to Tutorial 15.2 using subroutines. 

17.3) Modify the program of Tutorial 17.2 so that there are 
four men doing the exercise vertically below each other. 

Subroutines can be very useful in writing a long program as 
they assist you to subdivide it into sections. The program for 
each section can then be written independently of the others, 
giving you less to think about at any one time. This use of 
subroutines will be demonstrated in the next chapter. 

Solutions to the tutorials 

17.1) Change line 210 of the program for Tutorial 13.6 to; 

210 IF loniy.lcft < 0 THEN 8DSUB 300 ELSE uney * 

•oney.left 
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Add the following lines: 

248 END 

388 REH Thi* subroutine indicates that you are trying to 
overdraN your account 

318 PRINT 'You do not have enough eoney for this* 

328 PRINT 'transaction.' 

338 PRINT 'You have only'jeoneyj'pounds in the bank.' 

348 RETURN 


'^ 7 . 2 ) 10 REH Han doing left and right leg swings 

28 REH Select lode 8 
38 NODE 8 

48 REH Create a HHILE...NEND loop froa which the coaputer 
cannot escape 
58 duaay.test > 8 
68 NHILE duaay.test « 8 

78 REH Create a loop to display the exercise 
88 REH The aeaory cell labelled stage stores 
the current part of the exercise 
98 stage = 8 

188 WHILE stage < 4 

118 REH Draw the appropriate stage of the exercise 

128 60SUB 388 

138 REH Wait for 1/4 second 

148 GOSUB 588 

158 REN Change stage for the next loop 

168 stage ‘ stage * 1 

178 WEND 

188 WEND 

198 END 

388 REH This subroutine draws the appropriate stage of the 
exercise 

318 REH The aeaory cell labelled block stores 
the building block nuaber to be displayed 
328 block » 248 

338 IF stage > 1 THEN block * 258 

348 IF stage = 3 THEN block > 251 

358 LOCATE 8,18 
368 PRINT CHRIIblock) 

378 RETURN 

588 REH This subroutine creates a delay of 1/4 second 
518 end.tiae « TINE + 75 

528 WHILE TINE < end.tiae 
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S38 MEND 
54B RETURN 

17.3) Add the following lines to the program of Tutorial 17.2: 

341 REN Create a loop to drae the four aen 

342 REN The aeiory cell labelled roe stores the screen roe of 
the aan 

343 roe » 3 

344 MHILE roe <> 21 

361 REN Change roe for the next loop 

362 roe = roe + 6 

363 MEND 

Also change line 350 to: 

3SB LOCATE 8,roe 
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Hangman game 

ARAg 

Program description 

In this chapter we shall design a program that plays a hangman 
game of guess the number. First it is necessary to decide 
exactly what we want the program to do. It should: 

1) Display an introductory screen for five seconds. 

2) Play the game where it: 

a) chooses a random number from 1 to 99 

b) displays a hangman frame 

c) repeats the next three steps until you have had six 
guesses or you have guessed correctly: 

i) asks you to guess the number 

ii) indicates the maximum and minimum possible 
values of your guess 

hi) draws the next part of the man if the guess is wrong 

d) either plays 'Oh dear! What can the matter be?', hangs 
the man and displays the answer if you are not correct 
after six attempts 

or plays a dance and releases the man if you are correct. 

3) Ask if you wish to play again. 

4) Either play again 

or display a goodbye message. 

Structure of the program 

This program is too complicated to think about all of it at once. 
The best technique is to divide the above program description 
into sections that can be written independently of each other. 
Each of these sections can be further subdivided so that the 
task becomes one of writing several short routines. The 
complete program is obtained by finally fitting these together. 

186 
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The above program description divides naturally into four 
parts, each of which will become a subroutine: 

1) Introductory screen. 

2) Playing the game with appropriate end of game display. 

3) Ask if you wish to play again. 

4) Goodbye message. 

A WHILE...WEND loop will be used to give you the 
option of playing again. It is also wise to do a software reset at 
the beginning of the program as this puts the computer in a 
known condition independent of what it was doing previous¬ 
ly. The structure of the program will be: 

IB REH Hingun gaie 
21 REH Do a softNare rtset 
3B CALL -17489iCALL -17586 
41 REH Play the gait if the ■•■ory cell labelled 
play.agaiRl contains 'YES' 

SB play.againd ■ 'YES' 

6B WHILE play.againt « 'YES' 


78 

REH Introductory screen 


88 

60SUB 1888 


98 

REH Plays the gate Hith 

appropriate end of gase 


display 


188 

eosUB 3888 


118 

REH Asks if you wish to 

play again 

128 

60SUB 8888 



13B WEND 

148 REH Soodbye eessage 
15B 60SUB 9BBB 
168 REH Hide the cursor 
178 PEN 8 
188 END 


The subroutines at lines 1000, 3000, 8000 and 9000 will now 
be developed. 


Introductory screen 

Assume that the mode 0 introductory screen, shown in Fig. 
18.1, is required. The writing should be in black with the stars 




Figure 18.1 Hangman introductory screen 


in bright red. The background of the stars and the surrounding 
screen should be blue whereas the background within the 
stars should be bright yellow. This screen display is similar to 
that of Tutorial 7.8. The subroutine starting at line 1000 could 
be: 

10BB REN Introductory screen display 
IBIB REN Select eode B 
1B2B NODE B 

1B3B REN Draw the • signs first in bright red 

1B4B PEN 3 

1B5B LOCATE 3,8 

1B6B PRINT 'tfHmmmm' 


1B7B LOCATE 3,9 

1B8B PRINT '« t 

1B90 LOCATE 3,IB 

IIBB PRINT '* t 

11 IB LOCATE 3,11 

112B PRINT ■» « 

113B LOCATE 3,12 

114B PRINT ■» » 

USB LOCATE 3,13 

116B PRINT "♦ i 

117B LOCATE 3,14 

118B PRINT •» * 

119B LOCATE 3,15 

12B0 PRINT •* » 

121B LOCATE 3,16 


122B PRINT ‘HHimimtstt 
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1238 

REN Display the text 

1248 

REN Select bright yelloM background and black text 

1258 

PAPER 1 


1268 

PEN 5 


1278 

LOCATE 4,9 


1288 

PRINT • 

■ 

1298 

LOCATE 4,18 


1388 

PRINT ‘ HANGNAN ' 

1318 

LOCATE 4,11 


1328 

PRINT • 

■ 

1338 

LOCATE 4,12 


1348 

PRINT • 

by ■ 

1358 

LOCATE 4,13 


1368 

PRINT ■ 

1 

1378 

LOCATE 4,14 


1388 

PRINT • J. 

Ssith ‘ 

1398 

LOCATE 4,15 


1488 

PRINT • 

■ 

1418 

REN Select noraal colours 

1428 

PAPER 8 


1438 

PEN 1 


1448 

REN Create a 

five second delay 

1458 

end.tiee « TINE + 1588 

1468 

HHILE TINE < 

end.tiee 

1478 

MEND 


1488 

REN Clear the screen at the end of the subroutine 

1498 

CLS 


1588 

RETURN 



This subroutine can now be tested before continuing. As the 
subroutines called from lines 100, 120 and 150 have not been 
written insert a line 85 that stops the program: 

85 END 

Enter and RUN the program. The computer should produce 
the desired screen display for five seconds before it clears the 
screen and displays the usual Ready message. Delete line 85 
and SAVE the program onto a disk calling it T E S T 1. 


The subroutine that plays the game 

Let's assume that the screen display for the game is to be in 
mode 0 as shown in Fig. 18.2. 
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Figure 18.2 Hangman game screen 
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This subroutine has to: 

1) Choose a random number from 1 to 99. 

2) Display the hangman frame in bright yellow and the title 
in bright white. 

3) Create a loop so that the program gives you six attempts to 
guess the number. This can be achieved as in Example 13b. 
However in this case the maximum and minimum possi¬ 
ble values of the guess are also to be displayed. 

4) Produce an end-of-game display with the appropriate 
music. 

Let's assume that the end-of-game displays shown in Fig. 

18.3 are required: 


The program for this subroutine could be: 

3aaa REH pi ays the gate 
3B1I REH Part 1 of the subroutine 
3021 REH Vary the randoa nuaber sequence 
3131 RANDDHIZE TIHE 

3041 REH Create a randoa nuaber froa 1 to 99 
3050 nuaber > INT(RNDt99)+l 
3060 REH Part 2 of the subroutine 
3070 REH Draa the top of the hangaan fraM 
3080 LOCATE 11,6 

3090 PRINT CHRI(143)}CHR$(143)|CHRI(143);CHR$(143); 
CHR$(143);CHR$(143) 

3100 REH Draw the post of the hangaan fraae 

3110 counter ° 7 

3120 MHILE counter < 24 

3130 LOCATE 16,counter 

3140 PRINT CHR$(143) 

3150 counter > counter * 1 
3160 NEND 

3170 REH Draa the base of the hangaan fraae 
3180 LOCATE 13,24 

3190 PRINT CHR$(143)]CHR$(143);CHR$(143);CHR$(143); 
CHRI(143)iCHR$(143);CHRI(143) 

3200 REN Display the title in bright ahite 
3210 PEN 4 
3220 LOCATE 7,2 
3230 PRINT 'HANGHAN' 

3240 REH Select bright yelloM characters 



192 Introducing the Amstrad CPC 664 


32S0 PEN 1 

3260 REN Part 3 of the subroutine 

3270 REN Create a WHILE...HEND loop that gives you six 

atteepts to guess the nuaber 

3280 REN The eeaory cell labelled futsses.lift stores the 
nuaber of guesses the person has left 
3290 guesses.left = 6 

3300 REN The aeaory cell labelled ear.value stores the 

aaxiaua possible value of your guess 

3310 REN The aeaory cell labelled lii.value stores the 

ainiaua possible value of your guess 

3320 aax.value « 99 

3330 ain.value ^ 1 

3340 REN If the aeaory call labelled rtptii.leapt contains 
'NO* then escape froa the loop 

3350 REN If the Kaory cell labelled rtpeit.Joopt contains 
‘YES' then execute the loop 
3360 repeat.loopt • 'YES' 

3370 WHILE repeat.loopi « 'YES' 

3380 REN Nake the contents of the loop into a subroutine 
3390 60SUB 3600 

3400 REN Update the nuaber of guesses left 
and rtptit.loopt 

3410 guesses.left > guesses.left - 1 

3420 IF guesses.left ■ 0 THEN repeat.loop! > 'NO' 

3430 IF guess * nuaber THEN repeat.loop$ = 'NO' 

3440 WEND 

3450 REN Part 4 of the subroutine 

3460 REN End of gaae display and ausic 

3470 REN Delete the aan and the text at the left of the 

screen 

3480 row 3 7 
3490 WHILE roN <> 21 
3500 LOCATE l,roN 
3510 PRINT ' 

3520 roN 3 roH 1 
3530 WEND 

3540 IF guess « nuaber THEN 60SUB 5300 ELSE SOEUB 7080 
3558 RETURN 

The contents of the loop in part 3 and the two end-of-game 
displays in part 4 of this subroutine are quite complicated. 
Hence they have been placed in subroutines starting at lines 
3600,5300 and 7000 so that they can be considered individually 
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after this subroutine has been tested. Add the lines 3000 to 
3550 to the end of the program called T E S T 1. The part of the 
program that has been written will now be tested. 

As the main function of the subroutine called from line 3390 
will be to INPUT a guess, replace this line with: 

3396 INPUT 'Gueis > guess 

As the subroutines at lines 5300 and 7000 have not been 
written delete line 3540. Also as the subroutines at lines 8000 
and 9000 have not been written insert a line 105 that stops the 
program: 

165 END 

RUN the program. The initial screen display should be 
followed by the display for playing the game. This should 
display the title and the frame and then ask you to make a 
guess. If after six guesses you are not correct or if you guess 
correctly the program should stop and the computer will 
display the usual Ready message. 

Remove line 105 and retype lines 3390 and 3540. Save the 
program onto a disk calling it TEST2. 

The subroutines that start at lines 3600, 5300 and 7000 will 
now be developed. 


The subroutine starting at line 3600 and called 
from line 3390 

This subroutine will: 

1) Display the maximum and minimum possible values of 
your guess. 

2) Ask you to guess the number. 

3) Update the maximum and minimum possible values of 
your guess. 

4) Draw the next part of the man if the guess is wrong. 

The program for this subroutine could be: 


3666 REN Display the eaxitue and ainiaua values of the 
guess 

3616 LOCATE 3,4 



194 Introducing the Amstrad CPC 664 

3&2I PRINT ■in.value}'>ANSHER-')MX.value 
3630 REH Display the nueber oT guesses left 
3641 LOCATE 1,7 

3651 IF guesses.left > 6 THEN PRINT ‘SIX* 

3660 IF guesses.left = 5 THEN PRINT ‘FIVE* 

3670 IF guesses.left > 4 THEN PRINT 'FOUR* 

3680 IF guesses.left = 3 THEN PRINT 'THREE* 

3690 IF guesses.left ■ 2 THEN PRINT *TH0 ' 

3700 IF guesses.left » 1 THEN PRINT 'ONE ' 

3710 LOCATE 1,9 
3720 PRINT 'HORE* 

3730 LOCATE 1,11 
3740 PRINT 'GUESSES' 

3750 REH Display the uords NEXT GUESS 
3760 LOCATE 2,16 
3770 PRINT 'NEXT' 

3780 LOCATE 2,18 
3790 PRINT 'GUESS' 

3800 REH Delete the last guess 
3810 LOCATE 2,20 
3820 PRINT ' ' 

3830 REH INPUT the next guess 
3840 LOCATE 2,20 
3850 INPUT guess 

3860 REH Update the contents of the aeeory cells labelled 

liR.xaiue and ax.value 

3870 IF guess > nueber THEN 60SUB 3950 

3880 IF guess < nueber THEN 60SUB 4000 

3890 REH Drae the next part of the aan if the guess is 

urong 

3900 IF guess <> nueber THEN 80SUB 4100 
3910 RETURN 

Notice again that complicated tasks of updating the max¬ 
imum and minimum value of the guess and drawing the next 
part of the man have been placed into subroutines so that they 
can be considered separately. 


Updating the maximum possible value of the guess 

The subroutine to update the maximum possible value of your 
guess starts at line 3950. A possible subroutine could be: 

3950 REH Update the contents of the eeeory cell labelled 
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iix.rtlttt 

3961 IF gum < Mx.valui THEN ux.value * guess 
3971 RETUfIN 

Updating the minimum possible value of the guess 

The subroutine to update the minimum possible value of the 
guess starts at line 4000. A possible subroutine could be: 

till REH Update the contents of the eeeory cell labelled 
li*.value 

4I1B IF guess > ein.value THEN tin.value ■ guess 
4020 RETURN 


Drawing the man 

This subroutine starts at line 4100 and depending on the 
number of guesses left calls another subroutine that draws the 
appropriate part of the man. 


4100 

REH Draws the aan 




4110 

REH Draw the head 




4120 

IF guesses.left ■ 

6 THEN 

608UB 

4301 

4130 

REH Draw the body 




4140 

IF guesses.left ■ 

5 THEN 

60SUB 

4650 

4150 

REH Draw the left 

are 



4160 

IF guesses.left > 

4 THEN 

BOSUB 

4750 

4170 

REH Draw the right 

: are 



4180 

IF guesses.left ■ 

3 THEN 

60SUB 

4850 

4190 

REH Draw the left 

leg 



4200 

IF guesses.left • 

2 THEN 

BOSUB 

4950 

4210 

REH Draw the right 

; leg 



4220 

IF guesses.left > 

1 THEN 

BOSUB 

5101 

4230 

RETURN 




4300 

REH Draws the ropi 

• and head 


4310 

REH Select black characters 


4320 

PEN 5 




4330 

REH Draw the rope 




4340 

LOCATE 11,7 




4350 

PRINT CHR$(209) 




4360 

LOCATE 11,8 




4370 

PRINT CHRI(209) 
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4381 REN Seltct pink charactfri 
4391 PEN 11 

4411 REN Drant the lace 
4411 LOCATE 11,9 

4421 PRINT CHR$(2l9)iCHR$(143)iCHR«(143)|CHR$(211) 
4431 LOCATE 11,11 

4441 PRINT CHRI(2t9)|CHR$(143)|CHRt(143))CHRI(211) 

4458 LOCATE 11,11 

4461 PRINT CHRt(139)jCHRt(135) 

4471 REN Transparent printing 
4481 PRINT CHR«(22)fCHR$(l) 

4498 LOCATE 11,8 

4588 PRINT CHR$(148)|CHRI(14B) 

4518 REN Select black characters 
4528 PEN 5 

4538 REN OraHi the eyes and sad eouth 

4548 LOCATE 11,9 

4558 PRINT CHRI(144)iCHR$(144) 

4568 LOCATE 11,18 

4578 PRINT CHR$(194liCHRt(195) 

4588 REN Norul printing 
4598 PRINT CHR$(22)+CHR$(B) 

4688 REN Select bright yelloN characters 
4618 PEN 1 
4628 RETURN 


4658 REN Draes the body 
4668 LOCATE 18,12 

4678 PRINT CHRI(289)|CHRt(143)|CHRt(143)iCHR$(211) 
4688 LOCATE 18,13 

4698 PRINT CHR«(2B9){CHR$(143)iCHR$(143)|CHR$(211) 
4788 LOCATE 18,14 

4718 PRINT CHR$(289)|CHR$(143)|CHR$(143)|CHR$(211) 
4728 LOCATE 18,15 

4738 PRINT CHR$(289)|CHRI(143);CHR«(143)|CHRI(211) 
4748 RETURN 


4758 REN Oraes the left are 
4768 LOCATE 13,12 
4778 PRINT CHR$(143)) 

4788 REN Select pink background to draw the hand 
4798 PAPER 11 
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4811 PRINT CHRt(133) 

4811 REN Stlict blui background 
4828 PAPER 8 
4831 RETURN 


4858 REN OraNt the right are 
4861 LOCATE 9,12 

4871 REN Select pink background to draw the hand 
4888 PAPER 11 

4898 PRINT CHRt(138)iCHRt(143) 

4988 REN Select blue background 
4918 PAPER 8 
4928 RETURN 


4958 REN Draws the leU leg 

4968 REN Select bright green characters Tor the trousers 

4978 PEN 12 

4988 LOCATE 12,16 

4998 PRINT CHR$(138);CHRt(211) 

5888 LOCATE 12,17 

5818 PRINT CHRt(138)}CHR$(211) 

5828 LOCATE 12,18 

5838 PRINT CHR$(138)|CHRt(2in 

5848 REN Select bright red characters Tor the shoe 

5858 PEN 3 

5868 LOCATE 12,19 

5878 PRINT CHR$(138)|CHR«(143) 

5888 PEN 1 
5898 RETURN 


5188 REN Draws the right leg 

5118 REN Select bright green characters Tor the trousers 

5128 PEN 12 

5138 LOCATE 18,16 

5148 PRINT CHRf(289)}CHRI(133) 

5158 LOCATE 18,17 

5168 PRINT CHR$(289)|CHR$(133) 

5178 LOCATE 18,18 

5188 PRINT CHR$(2B9);CHR$(133) 

5198 REN Select bright red characters Tor the shoe 
5288 PEN 3 
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5218 LOCATE 18,19 

5228 PRINT CHR<(143))CHRt(133) 

5238 PEN 1 

5248 REN Create a delay oT 1 second 
5258 end.ti«> = TINE + 388 
5268 WHILE TINE < end.tiee 
5278 WEND 
5288 RETURN 

Add lines 3600 to 5280 to the program called T E S T 2 . The 
part of the program that has been written will now be tested. 
As the subroutines at lines 5300, 7000, 8000 and 9000 have not 
been written delete line 3540 and insert a line 105 that stops the 
program: 

185 END 

RUN the program. With each wrong guess the computer 
should display another part of the man and update the 
maximum and minimum possible values of your guess. After 
six guesses or when you guess correctly the program stops and 
the computer displays the usual Ready message. 

Remove line 105 and retype line 3540. SAVE the program 
onto a disk calling it T E S T 3. 


The subroutine starting at line 5300 and called 
from line 3540 

This subroutine releases the man and plays: 






BS 







LW 

mmm 


miH 

mm 









A possible program for the subroutine could be: 

5388 REN End of gate diiplay and tuna for the correct 
guess 

5318 REN Draes the released aan 
5328 REN Draws the face 
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S33I REH Silict pink characters for the face 

5348 PEN 11 

5358 LOCATE 4,13 

53&8 PRINT CHRf(148);CHRI(148) 

5378 LOCATE 3,14 

5388 PRINT CHR8(289)|CHR$(143);CHR$(I43);CHR$(211I 
5398 LOCATE 3,15 

5488 PRINT CHRf(2B9)|CHR((143)|CHR$(143){CHR$(211) 

5418 LOCATE 4,16 

5428 PRINT CHRf(139l{CHRt(135) 

5438 REH Select bright yelloH characters for the body 
5448 PEN 1 

5458 REN Draes the body 
5468 LOCATE 2,17 

5478 PRINT CHRf(138)|CHRI(143)|CHRI(143):CHRI(143); 
CHR$(143);CHR$(133) 

5488 LOCATE 3,18 

5498 PRINT CHR$(289);CHRt(143){CHR$(143)|CHRf(211) 

5588 LOCATE 3,19 

5511 PRINT CHRt(2B9)|CHR$(143)|CHR$(143)|CHRI(211) 

5528 LOCATE 3,28 

5538 PRINT CHR$(2B9)|CHR$(143)}CHR$(143)iCHR$(211) 

5548 REN Draes the legs 

5558 REH Select bright green characters for the trousers 
5568 PEN 12 
5578 LOCATE 3,21 

5588 PRINT CHRI(2B9);CHRt(133){CHR$(138);CHR$(211) 

5598 LOCATE 3,22 

5688 PRINT CHR«(2e9);CHR$(133)|CHRI(138);CHR$(211) 

5618 LOCATE 3,23 

5628 PRINT CHRt(289)|CHR$(133)|CHR$(138){CHR$(211) 

5638 REH Select bright red characters for the shoes 
5648 PEN 3 

5658 REH Draus the shoes 
5668 LOCATE 3,24 

5678 PRINT CHRI(143);CHR$(133))CHR$(138);CHR$(143) 

5688 REH Transparent printing 
5698 PRINT CHRt(22)+CHR$(l) 

5788 REN Select black characters 
5718 PEN 5 

5728 REH Draes the eyes and happy louth 

5738 LOCATE 4,14 

5748 PRINT CHRI(i44);CHRt(144) 

5758 LOCATE 4,15 
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5761 

PRINT 

CHRt(193);CHRf(192) 

5778 

REN Select pink characters 

5788 

PEN 11 

5798 

REN Draws the hands 

5888 

LOCATE 2,17 

5818 

PRINT 

CHR$(133);‘ ';CHR«(138) 

5828 

REN Noreal printing 

5838 

PRINT 

CHR$(22)+CHR$(8) 

5848 

REN Select bright yellow characters 

5858 

PEN 1 


5868 

REN Plays the dance 

5878 

REN Bar 1 

5888 

SOUND 

49,169,48 

5898 

SOUND 

42,568,48 

5988 

SOUND 

28,676,48 

5918 

SOUND 

49,213,28 

5928 

SOUND 

2,2,5 

5938 

SOUND 

42,568,48 

5948 

SOUND 

28,676,48 

5958 

SOUND 

1,169,28 

5968 

SOUND 

49,159,48 

5978 

SOUND 

2,2,5 

5988 

SOUND 

42,568,48 

5998 

SOUND 

28,676,48 

6888 

SOUND 

49,198,28 

6818 

SOUND 

2,2,5 

6828 

SOUND 

42,568,48 

6838 

SOUND 

28,638,48 

6848 

SOUND 

1,159,28 

6858 

REN Bar 2 

6868 

SOUND 

49,169,48 

6878 

SOUND 

2,2,5 

6888 

SOUND 

42,568,48 

6898 

SOUND 

28,676,48 

6188 

SOUND 

49,213,28 

6118 

SOUND 

2,2,5, 

6128 

SOUND 

42,568,48 

6138 

SOUND 

28,676,48 

6148 

SOUND 

1,169,28 

6158 

SOUND 

49,198,28 

6168 

SOUND 

2,2,5 

6178 

SOUND 

42,568,48 

6188 

SOUND 

28,1136,48 

6198 

SOUND 

1,225,28 
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6200 SOUND 1,284,40 
6210 RETURN 


The subroutine starting at line 7000 and called 
from line 3540 


This subroutine hangs the man, displays the correct number 
and plays 'Oh dear! What can the matter be?'. The music for 
this tune is: 
















Hi 

n 

HI 





ssss 

SJBSBSB 

SBS^S 


A possible program for this subroutine could be: 

7000 REN Fiilfd to gutis the aniNer 

7010 REN Hangs the ean 

7020 REN Select black characters 

7030 PEN S 

7040 Draes the rope 

7050 LOCATE 11,7 

7060 PRINT CHRI(289) 

7070 LOCATE 11,8 
7080 PRINT CHR$(2I9) 

7090 LOCATE 11,9 
7100 PRINT CHR«(209) 

7110 LOCATE 11,10 
7121 PRINT CHR$(289) 

7130 REN Select yelloM characters to draw the face 
7140 PEN 9 

7150 REN Draes the face 
7160 LOCATE 10,11 

7170 PRINT CHRI(209);CHRI(143){CHR$(I43I;CHR$(211) 

7180 LOCATE 10,12 

7198 PRINT CHRt(289)(CHRI(143);CHR<(143);CHR$(211) 

7200 LOCATE 11,13 

7210 PRINT CHRt(139);CHR$(135) 

7220 REN Select bright yellow characters to draw the body 
7230 PEN 1 

7240 REN Draws the body 
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7251 LOCATE 9,14 

7261 PRINT CHRt(138);CHRt(143);CHR$(143)|CHR<(143); 
CHRI(143);CHR«(133) 

7271 LOCATE 9,15 

7281 PRINT CHfil(138);CHR$(2l9);CHRI(143)iCHR$(143); 
CHRI(211);CHR4(133) 

7298 LOCATE 18,16 

7388 PRINT CHfit(289);CHRI(143);CHRI(143);CHRt(211) 

7318 LOCATE 18,17 

7328 PRINT CHR$(289);CHRI(143);CHR$(143);CHRt(211) 

7338 REN Select bright green characters to drae the legs 
7348 PEN 12 

7358 REN Oraes the legs 
7368 LOCATE 18,18 

7378 PRINT CHR$(289)!CHRt(133);CHRt(138)|CHR$(211) 

7388 LOCATE 18,19 

7398 PRINT CHRt(289);CHRt(133);CHR$(138)|CHRt(211) 

7488 LOCATE 18,28 

7418 PRINT CHRf(289)|CHR$(133)|CHR$(138)}CHR$(211) 

7428 REN Select bright red characters to dran the shoes 
7438 PEN 3 

7448 REN Draes the shoes 
7458 LOCATE 18,21 

7468 PRINT CHRI(289);CHR$(133);CHRI(138);CHR$(211) 

7478 LOCATE 18,22 

7488 PRINT CHRt(289);CHRI(133)|CHR«(138)!CHR$(211) 

7498 REN Transparent printing 
7588 PRINT CHRt(22)iCHRI(l) 

7518 REN Select yell on characters 
7528 PEN 9 

7538 REN Drans the top of the head 

7548 LOCATE 11,18 

7558 PRINT CHRI(148);CHR$(148) 

7568 REN Draes the hands 
7578 LOCATE 9,16 

7588 PRINT CHR$(138);' ';CHRI(129) 

7598 REN Noraal printing 
7688 PRINT CHR$(22)+CHR$(8) 

7618 REN Select bright yellon characters 
7628 PEN 1 

7638 REN Display correct ansner 

7648 LOCATE 1,24 

7658 PRINT 'NUNBER =';nueber 

7668 REN Plays 'Oh dear! Hhat can the aatter be?' 
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7671 

REH Bar 1 

7688 

SOUND 

17,284,128 

7691 

SOUND 

10,851,40 

7788 

SOUND 

2,676,40 

7718 

SOUND 

2,568,41 

7720 

REN Bar 2 

7730 

SOUND 

1,2,5 

7748 

SOUND 

17,284,120 

7758 

SOUND 

18,851,48 

7760 

SOUND 

2,676,41 

7778 

SOUND 

2,568,40 

7780 

REN Bar 3 

7790 

SOUND 

1,2,5 

7880 

SOUND 

17,284,48 

7818 

SOUND 

18,851,40 

7820 

SOUND 

17,338,40 

7838 

SOUND 

18,676,40 

7848 

SOUND 

17,213,48 

7858 

SOUND 

10,568,48 

7860 

REH Bar 4 

7870 

SOUND 

17,284,40 

7880 

SOUND 

10,851,40 

7898 

SOUND 

17,338,40 

7980 

SOUND 

10,676,48 

7918 

SOUND 

17,426,40 

7920 

SOUND 

10,568,40 

7938 

RETURN 


Add the lines 5300 to 7930 to the program called T E S T3. As 
the subroutines at lines 8000 and 9000 have not been written 
insert a line 105 that stops the program; 

105 END 

RUN the program. The game should play until the man is 
released or hanged after which the computer should display 
the usual Ready message. Remove line 105 and SAVE the 
program onto a disk calling it T E S T4. 


The subroutine that asks if you wish to play 
again 


Let's assume that you wish this subroutine to display PLAY 
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AGAIN? superimposed on the middle of the previous screen. 
The characters should be in black on bright white. A possible 
program for this subroutine could be: 

8IU REH PLAY A6AIN7 display 

Bill REH Salsct black characttrs and bright Hhitt 

background 

8B2I PAPER 4 

8131 PEN 5 

8148 LOCATE 4,12 

8191 INPUT 'PLAY AGAIN? '.ansHirl 

8888 IF ansuert * 'NO* THEN play.again! » 'NO' 3 / 

8878 IF ansHsr! ■ 'no* THEN pi ay.again! > 'NO* 

8888 REH Return to noreal colours 
8898 PEN 1 
8188 PAPER 8 
8118 RETURN 


The subroutine that displays the goodbye 
message 


Let's assume that you wish to clear the screen and display 
goodbye. A possible program for this subroutine could be: 

9888 REH Good-bye eessage 
9818 REH Clear the screen 
9828 CLG 
9838 LOCATE b,12 
9848 PRINT 'GOOD-BYE* 

9858 RETURN 

Add the lines 8000 to 9050 to the program T E S T 4 and RUN it. 
The program should now be complete. 



Chapter Nineteen 


What can I do now with 
my Amstrad CPC 664 



Additional software for your Amstrad CPC 664 


Throughout this book you have been using the language 
BASIC to instruct the computer to do simple calculations, draw 
pictures and play tunes. These programs are called the 
software. Computers have many uses in the modern world, e.g. 
in education, banking, robotics, artificial intelligence, etc. As a 
result of this diversification many computer languages have 
been developed each with instructions that are of use in a 
particular application. Some of these languages are: 


BASIC 

COBOL 

FORTH 

LOGO 

PASCAL 


a general purpose language for beginners, 
a business language. 

used to control instruments such as telescopes, 
used to teach computing to children 
a more advanced general purpose language. 


Your Amstrad CPC 664 is capable of supporting languages 
other than BASIC making it useful in many different fields of 
computing. 


Loading the language LOGO 

The systems disk supplied with your Amstrad CPC 664 
contains a version of the language LOGO. Switch on the 
computer and insert side two of your backup system disk into 
the floppy disk drive. Type: 

|cpt 

After a few seconds the computer displays: 

205 
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Hilcoii to 


Aistrid LOGO VI.1 

Copyright (c) 1983,Digital Research 
Pacific Grove, California 

Dr. Logo is a tradeeark of 
Digital Research 

Product No. &BB2-1232 

Please Halt 

Soon the screen clears and a question mark appears at the 
top left hand corner. This is the LOGO cursor which tells you 
that LOGO is waiting for you to type an instruction. 


LOGO turtle graphics 

Type (noticing the space between f d and 1 50): 
fd ISB 

Press an ENTER key. An arrow appears on the screen. The 
head of the arrow consists of a triangle which is called the 
turtle. LOGO graphics consist of creating pictures by moving 
this turtle round the screen. The screen has the same 
coordinates as in BASIC graphics and hence the graphics 
planner of Chapter 8 can be used to plan your designs. The 
turtle starts in the middle of the screen pointing upwards 
(often called north). The command: 

fd 15B 

instructs the turtle to move forward 150. As it is pointing north 
it moves up the screen 150 points. In LOGO the command f d 
is called a primitive. 

We shall now investigate some of the primitives available 
for moving the turtle. Type: 

rt 4B 

Press an ENTER key. This instructs the turtle to turn in a 
clockwise direction by 40 degrees. Type: 
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rt -80 

Press an ENTER key. This instructs the turtle to turn in an 
anti-clockwise direction by 80 degrees. Type: 

bk 50 

Press an ENTER key. This instructs the turtle to move 
backwards by 50 points. Observe that it still points in the same 
direction. 

The above types of commands can be combined. Type: 

rt -90 Id 200 rt 130 

Press an ENTER key. You will see that the computer obeys the 
commands in the order rt — 90, fd 200 and then r t 130. 

Sometimes you may wish to move the turtle without leaving 
a trace on the screen. The pen up (pu) primitive lifts the 
turtle's pen preventing it from leaving a trace. The pen can be 
lowered again with the pen down (pd) primitive. Type: 

pu fd 200 rt 90 pd fd 300 

Press an ENTER key. Again the turtle obeys the commands in 
order. It lifts its pen and moves 200 points forward. It then 
turns clockwise through 90 degrees, lowers its pen and moves 
forward 300 points leaving a trace. 

As the screen display is mode 1, four colours are available. 
The colour of the trace can be changed by the primitive set pen 
colour (s e t p c). Type: 

setpc 3 

Press an ENTER key. The turtle has now changed its pen to 
ink 3 which is bright red. Type: 

rt 90 fd 100 

Press an ENTER key. The turtle's trace is now bright red. 

The primitive clear screen (cs) can be used to return the 
turtle to its initial position. Type: 

cs 

Press an ENTER key. Notice that the c s primitive does not 
change the colour of the trace. 
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Using LOGO to draw pictures 

A rectangle could be drawn on the screen by combining the 
primitives as follows: 

fd IBB rt 9B fd 2BB rt 9B fd IBB rt 9B fd 2BB rt 9B 

This can be defined as a LOGO word called rectang Le by 
typing (remembering to press an ENTER key at the end of 
each complete line): 

to rectangle 

fd IBB rt 9B fd 2BB rt 9B fd IBB rt 9B fd 2BB rt 9B 
end 

LOGO now understands the word rectang Le and can obey 
it just as if it were another primitive. Clear the screen using the 
c s primitive and then type: 

rectangle 

Press an ENTER key and a rectangle should be drawn on the 
screen. 

Two rectangles could be drawn by typing: 

cs rectangle pu bk i2B pd rectangle 

Press an ENTER key. Two rectangles should be drawn on the 
screen. 



Figure 19.1 Outline of a house 
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Example 19a 

Use LOGO to draw a house similar to that of Example 8d as 
shown in Fig. 19.1. 

The house could be constructed by defining words for the 
walls, roof, doors and windows. The wall could be drawn by 
the word: 

to Hill 

fftpc 1 rt 91 fd 211 rt 9B fd 121 rt 91 Id 211 rt 91 

fd 121 

end 

One advantage of LOGO is that the word wall can now be 
tested. Type: 

ct Hill 

Press an ENTER key and the walls should be drawn on the 
screen. 

The roof could now be drawn by the word: 

to roof 

iitpc 3 rt 4S fd 71 rt 45 fd IN rt 45 fd 71 rt 135 fd 2N 

rt 91 

end 

This definition can be tested by typing: 

roof 

Press an ENTER key and the roof should be drawn. 

We shall now define the word frame to be the outline of 
the house. Type: 

to friM 
cs Hill roof 
end 

Test frame by typing: 

friie 

Press an ENTER key. The outline of the house should now be 
drawn. 

Before the door can be drawn the turtle must be moved to 
the point B. Define the word moveAtoB as: 
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to loveAtoB 

pu bk 121 rt 90 fd 80 rt -90 pd 
•nd 

Test this word by typing: 

■oveAtoB 

Press an ENTER key. The turtle should move to B and point 
north. 

The door could be drawn by the word: 

to door 

sttpc 3 fd 70 rt 90 fd 40 rt 90 fd 70 rt 90 fd 40 

rt 90 

end 

Test this word by typing: 

door 

Press an ENTER key. The door should now be added to the 
house. 

Before the windows can be drawn the turtle must be moved 
to the point C. Define the word moveBtoC as: 

to ooveBtoC 

pu rt -90 fd &0 rt 90 fd &0 pd 
end 

Test this word by typing: 

■oveBtoC 

Press an ENTER key. The turtle should move to C and point 
north. 

The window could be drawn by the word: 

to Mind 

letpc 2 fd 40 rt 90 fd 40 rt 90 fd 40 rt 90 fd 40 rt 90 
end 

Test this word by typing: 

Mind 

Press an ENTER key. The left hand window should appear. 
The turtle can now be moved to D by the word moveCtoD: 
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to toveCtoD 

pu rt 9B Id 120 rt -98 pd 
end 

Test this word by typing; 

■oveCtoD 

Press an ENTER key. The turtle should now move to D and 
point north. Type: 

Mind 

Press an ENTER key and the other window should be drawn. 
The turtle can be hidden by the primitive ht. Type: 

ht 

Press an ENTER key and the turtle should disappear. 

The complete house could be drawn by the word house as 
follows: 

to houst 

frail loviAtoB door loviBtoC lind loveCtoO Kind ht 
end 

Test this by typing: 

house 

Press an ENTER key. The house should be drawn. The turtle 
can be displayed by typing: 

St 

Press an ENTER key. 

Tutorial 

19.1) Write a LOGO program to draw the arc of a circle A to B 
shown in Fig. 19.2. 

19.2) Write a LOGO program to draw the flower shown in 
Fig. 19.2. 



212 Introducing the Amstrad CPC 664 



Figure 19.2 Picture of a flower 

Comparison of LOGO and BASIC programs 

In BASIC the computer knows how to obey a number of 
commands and it cannot be taught any new ones. The program 
is created by instructing the computer to obey the known 
commands in a given sequence. This type of program is 
difficult to test until it is complete. In LOGO the computer 
starts only knowing how to execute a limited number of 
primitives but can be taught others that are combinations of 
these. This forces the programmer to think more logically and 
has the advantage that each new word can be tested as it is 
created as shown in Example 19a. These features have made it 
very useful in the teaching of young children. 

The above discussion of LOGO should only be regarded as 
an introduction to the language. It has not mentioned all the 
primitives associated with graphics nor any of those relating to 
text processing nor logic, etc. These other commands make 
LOGO useful in teaching the development of language and 
logical thinking. 


Commercial software 

It is not always necessary to write your own software as you 
can often buy a program that performs the same task. This is 
called a software package. In general if a suitable software 

























What can I do now with my Amstrad CPC 664? 213 


package is available then it is better to buy it than to write your 
own as this could save you hundreds of hours of work. CP/M, 
which stands for control program for microprocessors, is an 
operating system in which many business packages have been 
written. Side one of your system disk allows the Amstrad CPC 
664 to run many of these business packages. 

A wordprocessor is one of these commercial packages that 
allows you to manipulate words and sentences. Let's compare 
letter writing with and without a wordprocessor. Without a 
wordprocessor you would first write the letter on a piece of 
paper and then alter words, phrases, etc. until you felt that it 
conveyed the desired sentiments and message. Then you 
would type it but if you made a mistake you would either 
accept a messy page or type it again. Also if you required more 
than one top copy you would have to type it several times. 

Now let's consider the same task with a wordprocessor 
program in your computer. You would type the first draft 
straight into the computer avoiding the need to write it on 
paper. Once typed you would edit it by deleting words, 
phrases, swapping paragraphs and correcting spelling. You 
could insert all or part of a previous document into your letter 
without retyping. You would then preview the text on the 
screen and adjust the layout until satisfactory. The letter could 
then be printed and saved onto tape or disk. If several people 
were to receive the letter then each could be sent his own 
personalised top copy rather than a photocopy with his name 
added later. 


The computer's memory 

The computer's memory consists of two parts: 

a) ROM (Read Only Memory). 

b) RAM (Random Access Memory). 

The ROM stores the language BASIC. This type of memory 
cannot be altered by you and the information is not forgotten 
when the power is switched off. 

The RAM is the honeycomb of memory cells introduced in 
Chapter 9. These memory cells are used to store both the 
program and the contents of your numeric and string vari- 
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ables. Hence if the program is long then fewer memory cells 
will be available to store your variables. Let's assume that you 
have loaded the wordprocessor program. As this is a very 
complicated program it will be quite long and so there will not 
be many memory cells left to store your variables which in this 
case will be your text. One solution is to store the program in 
ROM so that it does not use up any of the RAM leaving all the 
memory cells for your text. When a program is stored into 
ROM it is called firmware. Your Amstrad CPC 664 has been 
designed to accept extra firmware programs. This also has the 
advantage that you do not have to load them as they are 
permanently in the computer. 


Additional hardware for your Amstrad CPC 664 

The parts of the computer that you can touch and see, e.g. the 
keyboard, the floppy disk drive and the monitor, are collec¬ 
tively called hardware. Your Amstrad CPC 664 can be made 
more versatile by connecting additional hardware, e.g. a 
printer. 


Printers 

Many people regard a printer as the most useful hardware 
addition to their computer as it allows them to obtain a paper 
copy of their programs and other screen displays. There are 
two common types of printers; 

a) Daisy wheel printer. 

b) Dot matrix printer. 

A daisy wheel printer can be thought of as a typewriter that 
is controlled by the computer. It has the advantage of 
producing very good quality print but the disadvantage of 
being limited to one character font. 

A dot matrix printer has a printing head that typically 
consists of an 9 by 9 array of pins each of which can print a dot 
on the paper. Characters are printed by selecting the appropri¬ 
ate pins as shown in Fig. 19.3. 
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• • • • 

• • • • 

• • • • 

• • • • 

$ 

Figure 19.3 Dot matrix characters 

By selecting different pins it is possible to change fonts. 
Hence with a dot matrix printer, italic, condensed or enlarged 
characters, etc. can be included in the text. It is also possible to 
print special symbols such as the Greek alphabet. 

A paper copy of any screen display can also be printed as it 
can be created from patterns of dots. For example the hangman 
display in Chapter 18 could be transferred onto paper using a 
dot matrix printer. 

The disadvantage of this printer is that the quality is not as 
good as for the daisy wheel printer since the characters are 
formed from a series of dots. 

Solutions to the tutorials 

19.1) to pbtnd 

fd 2 rt 2 fd 2 rt 2 Id 2 rt 2 fd 2 rt 2 Id 2 rt 2 
end 

to pare 

pbend pbend pbend pbend pbend pbend pbend pbend pbend 
end 

Execute the word pare. 

19.2) to pbend 

fd 2 rt 2 fd 2 rt 2 fd 2 rt 2 fd 2 rt 2 fd 2 rt 2 
end 

to pare 

pbend pbend pbend pbend pbend pbend pbend pbend pbend 
end 

to nbend 

fd 2 rt -2 Id 2 rt -2 fd 2 rt -2 fd 2 rt -2 Id 2 rt -2 
end 
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to narc 

nband nbend nbtnd nbind nbend nbend nbend nbind nbend 
end 

to stea 
pare narc 
end 

to leaf 

rt -45 pare rt 90 pare 
end 

to Hhorl 

rt -45 leaf rt -91 leaf rt 45 
end 

to head 

leaf rt 45 leaf rt 45 leaf rt 45 leaf 
end 

to flower 

cs whorl ttee head ht 
end 


Execute the word f Lower. 
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Syntax errors 


Some possible causes of syntax errors are suggested in this 
appendix. The errors relate only to the new statements 
introduced in the particular chapter. 

Chapter 1 

Syntax error: wrong spelling of C L S. 

Chapter 2 

Syntax error: 

a) Wrong spelling of PRINT. 

b) both the space after PRINT and the first quotation mark 
missing, e.g. 

PRINTThii i( thi Aaitrad coiputtr.' 

Computer displays 0 instead of the phrase: the first quotation 
mark is missing, e.g. 

PRINT This is tht Aistrsd coiputer.' 

Chapter 3 

Syntax error: 

a) Wrong spelling of LIST, RENUM or EDIT. 

b) Space between EDIT and the line number missing, e.g. 

EDIT3I 

Line does not exist: trying to EDIT a line that does not exist. 

Chapter 4 

Syntax error: 
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a) Remark with the REM missing. 

b) Space after the REM missing. 


Chapter 5 


Syntax error: 

a) Wrong spelling of SAVE, LOAD or CAT. 

b) \ before ERA or C P M missing. 


Type mismatch during a SAVE or LOAD: first quotation mark 
round the program name is missing, e.g. 


SAVE ROBOT' 


Bad command: program name too long. 


Chapter 6 

Syntax error: 

a) Wrong spelling of MODE, PEN or PAPER. 

b) The space between these statements and the following 
number is missing. 

Improper argument in ..: 

a) Asking for a mode other than 0 or 1 at line .. . 

b) Asking for a PEN or PAPER greater than 15 at line .. . 

Chapter 7 

Improper argument in ..: the LOCATE statement at line .. has 
placed the cursor outwith the screen. 


Chapter 8 

Improper argument in ..: trying to display a building block 
outwith the range 33 to 255. 

Subscript out of range: 

a) Space between PRINT and CHR$ missing. 

b) VVrong spelling of CHR$. 

Syntax error: 

a) Brackets after CHR$ missing e.g. CHRS25 0. 

b) Wrong spelling of MO V E, DRAW, FILL, TAG or TAGOFF. 
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c) Space after MOVE or FILL missing. 

d) The comma between the co-ordinates in the MOVE and 
DRAW statements missing. 

Improper argument in ...: asking for a F I L L greater than 15 at 
line... 

Chapter 9 

Type mismatch in ..: this means that you have equated a string 
variable to a number or vice versa, e.g. 

js'rid' 


Chapter 10 

Syntax error: 

a) = sign missing. 

b) Using an invalid variable name. 

c) Wrong spelling of INT or RANDOMIZE. 

d) Space between RANDOMIZE and TIME missing. 

Computer obtains the wrong answer to a calculation: 

a) The label given to a memory cell is spelt in more than one 
way at different parts of the program, e.g. 


38 randoi.nuibcr ■ INT{RN0i6)*l 
60 PRINT rndoa.nuabcr 

b) The wrong symbol is used in an arithmetic expression. 

c) Brackets missing in the random number statement. 


Chapter 11 

Syntax error: 

a) Space after INPUT missing. 

b) The label for the memory cell missing after INPUT. 

c) Missing comma in INPUT statement, e.g. 

INPUT 'ansHer'niHt 

Redo from start: you have entered a string at an INPUT 
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statement when the computer expected a number. The mes¬ 
sage is instructing you to enter a number and not to start the 
program again. 


Chapter 12 

Syntax error or program not obeying the IF statement 
correctly: 

a) The space after I F or the space on both sides of the T H E N or 
ELSE missing. 

b) Wrong spelling of IF, THEN or ELSE. 

c) Using the wrong symbols for less than, greater than, etc. 

d) The THEN after an I F missing. 

Chapter 13 

WEND missing in ..: no W E N D to match the WHILE at line .. . 
Unexpected WEND in ..: no WH I LE to match the WEND at line 

Operand missing in ..: no condition after the W H I L E at line .. . 
Chapter 16 

Syntax error: space after SOUND missing. 

Chapter 17 

Syntax error: space after GOSUB missing. 

Line does not exist in ..: the GOSUB at line .. points to a line 
that does not exist. 

Unexpected RETURN at line ..: 

a) There is no END statement at the end of the main program. 

b) There is a RETURN in the main program. 
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BASIC statements 


ABS, AFTER, AND, ASC, ATN, AUTO 
BINS,BORDER 

CALL, CAT, CHAIN, CHRS, CINT, CLEAR, CLG, CLO- 
SEIN, CLOSEOUT, CLS, CONT, COPYCHRS, COS, 
CREAL, CURSOR 

DATA, DECS, DEF, DEFINT, DEFREAL, DEFSTR, DEG, 

DELETE, DERR, DI, DIM, DRAW, DRAWR 

EDIT, El, ELSE, END, ENT, ENV, EOF, ERASE, ERL, 

ERR, ERROR, EVERY, EXP 

FILL, FIX, FN, FOR, FRAME, FRE 

GOSUB,GOTO, GRAPHICS 

HEXS,HIMEM 

IF, INK, INKEY, INKEYS, INP, INPUT, INSTR, INT 

JOY 

KEY 

LEFTS, LEN, LET, LINE, LIST, LOAD, LOCATE, LOG, 
L0G10,LOWERS 

MASK, MAX, MEMORY, MERGE, MIDS, MIN, MOD, MODE, 
MOVE, MOVER 
NEXT, NEW, NOT 

ON,ON BREAK,ON ERROR GOTO, ON SQ,OPENIN, 
OPENOUT, OR, ORIGIN, OUT 

PAPER, PEEK, PEN, PI, PLOT, PLOTR, POKE, POS, 
PRINT 

RAD, RANDOMIZE, READ, RELEASE, REM, REMAIN, 
RENUM, RESTORE, RESUME, RETURN, RIGHTS, RND, 
ROUND, RUN 

SAVE, SGN, SIN, SOUND, SPACES, SPC, SPEED, SQ, 
SQR, STEP, STOP, STRS, STRINGS, SWAP, SYMBOL 
TAB, TAG, TAGOFF, TAN, TEST, TESTR, THEN, TIME, 
TO, TROFF, TRON 
UNT,UPPERS,USING 
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VAL, VPOS 

WAIT, WEND, WHILE, WIDTH, WINDOW, WRITE 

XOR, XPOS 

YPOS 

ZONE 
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Background text colour 40, 42 
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CALL statement 38 
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CAPS LOCK 5 
Changing a program line 16 
Chords 170 
CHR$ statement 57 
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CLR key 17 
CLS statement 6 
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Computer languages 205 
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Condition table 121 
Condition statements 121 
CONT statement 101 
Copying a disk 31 
Cursor BASIC 2, 51 
Cursor LOGO 206 
Cursor left key 16 
Cursor right key 16 


Daisy wheel printer 214 
Debugging 101 
Decisions 119,122 
Delays 145 
Delete (DEL) key 2 
Deleting a program line 18 
Deleting a program from a disk 34 
Designing a screen picture 59 
Designing building blocks 64 
DISCCOPY program 31 
Dot matrix printer 214 
DRAW statement 68 
Duration of note 166 
EDIT statement 16 
Editing a program 15 
END statement 180 
ENTER key 6 
Entering a program 12 
Error messages 7, 20, Appendix 1 
Escape (ESC) key 131 
Execution of a statement 6 
fO key 38 
Fault finding 101 
FILL statement 71 
Filling overlapping areas 72 
Firmware 214 
Floppy disk drive 30 
FORMAT statement 32 
Formatting a disk 32 
GOSUB statement 179 
Graphics planner 67 
Graphics colour 68, 207 
Graphics background colour 68 
GRAPHICS PAPER statement 68 
GRAPHICS PEN statement 68 
Hangman game 186 
Hardware 214 
IF...THEN statement 124 
IF...THEN...ELSE statement 119, 
122 

INPUT statement 106,110,112 
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Inserting a program line 18 
INT statement 100 
Keyboard letters 2 

numbers 3 
symbols 4 ,31 
Keyboard reset 31 
Labelling memory cells 81, 84 
Languages 205 
Line graphics 66, 206 
LIST statejnent 15, 39 
Listing a program 15, 39 
LOAD statement 33 
Loading a program from disk 33 
Loading LOGO 205 
LOCATE statement 49,113 
LOGO 205 
LOGO turtle 206 
LOGO words 208 
Loop counter 132 
Loops 129 

Loops within loops 135 

Main program 179 

Memory cells 80, 84 

Memory types 213 

Mode 0 35 

Mode 1 35 

MODE statement 36 

MOVE statement 68 

Moving a screen character 154 

Moving a rocket up the screen 156 

Musical notes 163 

Nested loops 135 

NEW statement 12 

Number keys 3 

Number pad 3, 38 

Numeric variables 82 

Octaves 163 

Outline shapes 26 

PAPER statement 40 

Parameters 153 

PEN statement 37, 51 

Pound sign 98 

PRINT statement 8, 24, 51, 57, 63, 
112 

Primitives 206 
Printers 214 
Program description 22 
Random access memory 
(RAM) 213 
Random numbers 99 
RANDOMIZE statement 100 
Read only memory 213 
Reading music 165 


Ready display 2,51 
REM statement 24 
Remarks 24 

Removing a program line 18 
Removing a program from a 
disk 34 

Rendezvous channel 
numbers 171 
Rendezvous notes 170 
RENUM statement 19 
Renumbering a program 18 
Repeated notes 168 
Resolution of the screen 71 
RETURN statement 179 
RND statement 100 
ROM 213 

ROUND statement 97 
RUN statement 13 
Running a program 13 
SAVE statement 33 
Saving a program onto a disk 32 
Screen colours mode 0 36 
Screen colours mode 1 35 

Screen coordinates 50 
Screen display planner for mode 
0 48 

Screen display planner for mode 
1 48 

Screen resolution 71 
Semi-colon symbol 51 
Sharps 165 
Software 212 
Software reset 38 
SOUND statement 163 
Sound number values 163 
STOP statement 101 
Strings 84,122 
String variables 84 
Subroutines 179 
Suppressing the ready 
message 51 
Symbol keys 4,5, 31 
Syntax errors 7, 20, Appendix 1 
Systems disk 30 
TAG statement 73 
TAGOFF statement 74 
Text colour 37,63 
Text background colour 40,42 
Text with graphics 73 
Time delay table 144 
TIME statement 144 
Transparent printing 63 
Treble clef 165 



Turtle graphics 206 
Volume control 163 
WHILE.. .WEND statement 129 


Wordprocessing 213 
Writing a program 22 





Computing is a skill and, like all other skills, can only be learned by 
practice. Don't just read this book, but try it out on your Amstrad. 

A major feature of the 664 is that it includes a disk system. The built- 
in disk drive provides speed and convenience in loading programs 
and cataloguing is instant. 

In the first few chapters the authors introduce you to your 664 and 
to BASIC with chapters on writing and storing programs, on the 
use of colour and drawing pictures. The book then covers use of the 
computer's memory, calculations, decision-making, loops, 
animation and creating computer music. The concepts are then 
used in a demonstration 'HANGMAN' program. A look is also taken 
at LOGO, commercial software and additional hardware. 
Appendices are provided on Syntax Error Messages and a list of 
BASIC statements. 
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